/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / dndbbs.arc / DND-SRC.LBR

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 2a 2a 2a 2a 2a 2a 2a | 2a 44 49 52 00 00 03 00 |.*******|*DIR....|
|00000010| 30 39 2f 30 32 2f 38 37 | 31 37 3a 35 33 3a 31 32 |09/02/87|17:53:12|
|00000020| 00 44 4e 44 42 42 53 20 | 20 42 41 53 03 00 1c 00 |.DNDBBS | BAS....|
|00000030| 30 39 2f 30 32 2f 38 37 | 31 30 3a 35 35 3a 34 34 |09/02/87|10:55:44|
|00000040| 00 44 4e 44 43 4e 46 20 | 20 42 41 53 1f 00 20 00 |.DNDCNF | BAS.. .|
|00000050| 30 38 2f 33 31 2f 38 37 | 31 35 3a 31 35 3a 34 38 |08/31/87|15:15:48|
|00000060| 00 44 4e 44 53 55 42 31 | 20 42 41 53 3f 00 a6 01 |.DNDSUB1| BAS?...|
|00000070| 30 39 2f 30 32 2f 38 37 | 31 34 3a 34 34 3a 34 34 |09/02/87|14:44:44|
|00000080| 00 44 4e 44 53 55 42 32 | 20 42 41 53 e5 01 80 00 |.DNDSUB2| BAS....|
|00000090| 30 39 2f 30 32 2f 38 37 | 31 33 3a 30 33 3a 32 30 |09/02/87|13:03:20|
|000000a0| 00 44 4e 44 53 55 42 33 | 20 42 41 53 65 02 31 00 |.DNDSUB3| BASe.1.|
|000000b0| 30 39 2f 30 31 2f 38 37 | 30 36 3a 33 35 3a 31 32 |09/01/87|06:35:12|
|000000c0| 00 44 4e 44 53 55 42 34 | 20 42 41 53 96 02 25 00 |.DNDSUB4| BAS..%.|
|000000d0| 30 39 2f 30 31 2f 38 37 | 30 36 3a 33 37 3a 32 38 |09/01/87|06:37:28|
|000000e0| 00 49 4f 2d 49 20 20 20 | 20 42 41 53 bb 02 11 00 |.IO-I   | BAS....|
|000000f0| 30 39 2f 30 32 2f 38 37 | 31 33 3a 30 33 3a 34 34 |09/02/87|13:03:44|
|00000100| 00 49 4f 2d 4f 20 20 20 | 20 42 41 53 cc 02 0e 00 |.IO-O   | BAS....|
|00000110| 30 39 2f 30 32 2f 38 37 | 31 32 3a 32 34 3a 34 30 |09/02/87|12:24:40|
|00000120| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 31 30 20 44 45 46 53 54 | 52 20 41 2d 42 3a 44 45 |10 DEFST|R A-B:DE|
|00000190| 46 49 4e 54 20 43 2d 5a | 3a 44 49 4d 20 54 53 28 |FINT C-Z|:DIM TS(|
|000001a0| 31 32 29 3a 43 4f 4d 4d | 4f 4e 20 53 48 41 52 45 |12):COMM|ON SHARE|
|000001b0| 44 20 2f 44 4e 44 42 42 | 53 2e 50 47 4d 2f 20 54 |D /DNDBB|S.PGM/ T|
|000001c0| 32 21 2c 55 58 2c 4c 4d | 2c 43 58 21 2c 4c 52 2c |2!,UX,LM|,CX!,LR,|
|000001d0| 52 4d 2c 41 2c 57 52 2c | 43 52 2c 41 4c 2c 46 47 |RM,A,WR,|CR,AL,FG|
|000001e0| 2c 49 4e 2c 54 46 2c 59 | 45 2c 41 49 2c 4e 58 2c |,IN,TF,Y|E,AI,NX,|
|000001f0| 43 41 2c 53 57 2c 50 41 | 31 24 2c 50 41 32 24 2c |CA,SW,PA|1$,PA2$,|
|00000200| 45 31 24 2c 5a 38 24 2c | 54 53 28 29 2c 58 31 3a |E1$,Z8$,|TS(),X1:|
|00000210| 4f 4e 20 45 52 52 4f 52 | 20 47 4f 54 4f 20 35 31 |ON ERROR| GOTO 51|
|00000220| 30 0d 0a 32 30 20 44 49 | 4d 20 41 32 28 36 29 2c |0..20 DI|M A2(6),|
|00000230| 46 31 24 28 34 29 3a 43 | 4c 4f 53 45 20 31 3a 4f |F1$(4):C|LOSE 1:O|
|00000240| 50 45 4e 20 22 49 22 2c | 31 2c 22 44 4e 44 42 42 |PEN "I",|1,"DNDBB|
|00000250| 53 2e 43 4e 46 22 3a 4c | 49 4e 45 20 49 4e 50 55 |S.CNF":L|INE INPU|
|00000260| 54 20 23 31 2c 50 41 31 | 24 3a 4c 49 4e 45 20 49 |T #1,PA1|$:LINE I|
|00000270| 4e 50 55 54 20 23 31 2c | 50 41 32 24 3a 46 4f 52 |NPUT #1,|PA2$:FOR|
|00000280| 20 4c 3d 31 20 54 4f 20 | 34 3a 4c 49 4e 45 20 49 | L=1 TO |4:LINE I|
|00000290| 4e 50 55 54 20 23 31 2c | 46 31 24 28 4c 29 3a 46 |NPUT #1,|F1$(L):F|
|000002a0| 31 24 28 4c 29 3d 50 41 | 31 24 2b 46 31 24 28 4c |1$(L)=PA|1$+F1$(L|
|000002b0| 29 3a 4e 45 58 54 3a 45 | 31 24 3d 46 31 24 28 34 |):NEXT:E|1$=F1$(4|
|000002c0| 29 3a 46 4f 52 20 4c 50 | 3d 31 20 54 4f 20 31 32 |):FOR LP|=1 TO 12|
|000002d0| 3a 49 4e 50 55 54 20 23 | 31 2c 54 53 28 4c 50 29 |:INPUT #|1,TS(LP)|
|000002e0| 3a 4e 45 58 54 0d 0a 33 | 30 20 44 45 46 20 46 4e |:NEXT..3|0 DEF FN|
|000002f0| 54 49 4d 24 3d 52 49 47 | 48 54 24 28 44 41 54 45 |TIM$=RIG|HT$(DATE|
|00000300| 24 2c 32 29 2b 22 20 22 | 2b 4d 49 44 24 28 22 4a |$,2)+" "|+MID$("J|
|00000310| 61 6e 46 65 62 4d 61 72 | 41 70 72 4d 61 79 4a 75 |anFebMar|AprMayJu|
|00000320| 6e 4a 75 6c 41 75 67 53 | 65 70 4f 63 74 4e 6f 76 |nJulAugS|epOctNov|
|00000330| 44 65 63 22 2c 56 41 4c | 28 4c 45 46 54 24 28 44 |Dec",VAL|(LEFT$(D|
|00000340| 41 54 45 24 2c 32 29 29 | 2a 33 2d 32 2c 33 29 2b |ATE$,2))|*3-2,3)+|
|00000350| 22 20 22 2b 4d 49 44 24 | 28 44 41 54 45 24 2c 34 |" "+MID$|(DATE$,4|
|00000360| 2c 32 29 2b 22 2c 22 2b | 53 54 52 24 28 56 41 4c |,2)+","+|STR$(VAL|
|00000370| 28 4c 45 46 54 24 28 54 | 49 4d 45 24 2c 32 29 29 |(LEFT$(T|IME$,2))|
|00000380| 2b 31 32 2a 28 56 41 4c | 28 4c 45 46 54 24 28 54 |+12*(VAL|(LEFT$(T|
|00000390| 49 4d 45 24 2c 32 29 29 | 3e 31 32 29 29 2b 4d 49 |IME$,2))|>12))+MI|
|000003a0| 44 24 28 54 49 4d 45 24 | 2c 33 2c 36 29 2b 4d 49 |D$(TIME$|,3,6)+MI|
|000003b0| 44 24 28 22 20 61 6d 20 | 70 6d 22 2c 28 31 2d 28 |D$(" am |pm",(1-(|
|000003c0| 56 41 4c 28 4c 45 46 54 | 24 28 54 49 4d 45 24 2c |VAL(LEFT|$(TIME$,|
|000003d0| 32 29 29 3e 31 32 29 29 | 2a 33 2d 32 2c 33 29 0d |2))>12))|*3-2,3).|
|000003e0| 0a 34 30 20 4b 45 59 20 | 4f 46 46 3a 43 4c 53 3a |.40 KEY |OFF:CLS:|
|000003f0| 5a 38 24 3d 22 22 3a 43 | 4c 3d 2d 31 3a 43 4b 3d |Z8$="":C|L=-1:CK=|
|00000400| 2d 31 3a 43 58 21 3d 36 | 30 30 3a 4c 4d 3d 30 3a |-1:CX!=6|00:LM=0:|
|00000410| 55 58 3d 30 3a 43 4c 4f | 53 45 20 33 3a 4f 50 45 |UX=0:CLO|SE 3:OPE|
|00000420| 4e 20 22 52 22 2c 33 2c | 50 41 31 24 2b 22 55 53 |N "R",3,|PA1$+"US|
|00000430| 45 52 53 2e 44 41 54 22 | 2c 32 35 36 0d 0a 35 30 |ERS.DAT"|,256..50|
|00000440| 20 46 49 45 4c 44 20 33 | 2c 38 30 20 41 53 20 42 | FIELD 3|,80 AS B|
|00000450| 37 2c 33 30 20 41 53 20 | 41 4e 2c 32 30 20 41 53 |7,30 AS |AN,20 AS|
|00000460| 20 50 53 24 2c 32 30 20 | 41 53 20 41 32 2c 31 20 | PS$,20 |AS A2,1 |
|00000470| 41 53 20 41 31 2c 32 20 | 41 53 20 41 32 28 31 29 |AS A1,2 |AS A2(1)|
|00000480| 2c 32 20 41 53 20 41 32 | 28 32 29 2c 32 20 41 53 |,2 AS A2|(2),2 AS|
|00000490| 20 41 32 28 33 29 2c 32 | 20 41 53 20 41 32 28 34 | A2(3),2| AS A2(4|
|000004a0| 29 2c 32 20 41 53 20 41 | 32 28 35 29 2c 32 20 41 |),2 AS A|2(5),2 A|
|000004b0| 53 20 41 32 28 36 29 2c | 31 30 20 41 53 20 42 37 |S A2(6),|10 AS B7|
|000004c0| 2c 32 20 41 53 20 52 4f | 24 2c 32 20 41 53 20 42 |,2 AS RO|$,2 AS B|
|000004d0| 34 0d 0a 36 30 20 46 49 | 45 4c 44 20 33 2c 31 37 |4..60 FI|ELD 3,17|
|000004e0| 37 20 41 53 20 42 37 2c | 38 20 41 53 20 41 39 2c |7 AS B7,|8 AS A9,|
|000004f0| 38 20 41 53 20 42 54 2c | 31 20 41 53 20 42 31 2c |8 AS BT,|1 AS B1,|
|00000500| 32 20 41 53 20 42 39 2c | 32 20 41 53 20 42 43 2c |2 AS B9,|2 AS BC,|
|00000510| 20 32 20 41 53 20 56 34 | 24 2c 32 20 41 53 20 56 | 2 AS V4|$,2 AS V|
|00000520| 35 24 2c 32 20 41 53 20 | 42 52 2c 32 20 41 53 20 |5$,2 AS |BR,2 AS |
|00000530| 42 50 2c 32 20 41 53 20 | 42 5a 2c 32 20 41 53 20 |BP,2 AS |BZ,2 AS |
|00000540| 42 37 2c 32 20 41 53 20 | 42 48 2c 32 20 41 53 20 |B7,2 AS |BH,2 AS |
|00000550| 42 37 2c 32 20 41 53 20 | 4c 43 4b 24 2c 32 20 41 |B7,2 AS |LCK$,2 A|
|00000560| 53 20 42 37 2c 38 20 41 | 53 20 41 44 2c 38 20 41 |S B7,8 A|S AD,8 A|
|00000570| 53 20 41 45 2c 31 30 20 | 41 53 20 41 43 0d 0a 37 |S AE,10 |AS AC..7|
|00000580| 30 20 47 4f 53 55 42 20 | 31 37 30 3a 4f 55 54 20 |0 GOSUB |170:OUT |
|00000590| 31 30 32 30 2c 31 3a 4f | 55 54 20 31 30 31 39 2c |1020,1:O|UT 1019,|
|000005a0| 33 3a 41 3d 22 41 54 5a | 22 3a 47 4f 53 55 42 20 |3:A="ATZ|":GOSUB |
|000005b0| 31 33 30 3a 47 4f 53 55 | 42 20 31 37 30 0d 0a 38 |130:GOSU|B 170..8|
|000005c0| 30 20 41 3d 22 41 54 51 | 31 45 30 53 32 3d 32 35 |0 A="ATQ|1E0S2=25|
|000005d0| 35 53 30 3d 31 22 3a 47 | 4f 53 55 42 20 31 33 30 |5S0=1":G|OSUB 130|
|000005e0| 3a 43 4c 53 3a 50 52 49 | 4e 54 22 53 59 53 4f 50 |:CLS:PRI|NT"SYSOP|
|000005f0| 20 48 49 54 20 5b 45 53 | 43 41 50 45 5d 20 54 4f | HIT [ES|CAPE] TO|
|00000600| 20 45 4e 54 45 52 20 4c | 4f 43 41 4c 22 3a 50 52 | ENTER L|OCAL":PR|
|00000610| 49 4e 54 20 22 57 41 49 | 54 49 4e 47 20 46 4f 52 |INT "WAI|TING FOR|
|00000620| 20 43 41 4c 4c 53 2e 2e | 22 3a 41 3d 22 22 0d 0a | CALLS..|":A=""..|
|00000630| 39 30 20 49 46 28 49 4e | 50 28 31 30 32 31 29 41 |90 IF(IN|P(1021)A|
|00000640| 4e 44 20 31 29 20 54 48 | 45 4e 20 44 55 4d 59 3d |ND 1) TH|EN DUMY=|
|00000650| 49 4e 50 28 31 30 31 36 | 29 0d 0a 31 30 30 20 58 |INP(1016|)..100 X|
|00000660| 24 3d 49 4e 4b 45 59 24 | 3a 49 46 20 58 24 3d 43 |$=INKEY$|:IF X$=C|
|00000670| 48 52 24 28 32 37 29 54 | 48 45 4e 20 4c 4d 3d 2d |HR$(27)T|HEN LM=-|
|00000680| 31 3a 54 32 21 3d 54 49 | 4d 45 52 3a 4f 55 54 20 |1:T2!=TI|MER:OUT |
|00000690| 31 30 32 30 2c 30 3a 43 | 4c 53 3a 47 4f 54 4f 20 |1020,0:C|LS:GOTO |
|000006a0| 31 39 30 0d 0a 31 31 30 | 20 49 46 20 49 4e 50 28 |190..110| IF INP(|
|000006b0| 31 30 32 32 29 3c 31 32 | 38 20 54 48 45 4e 20 39 |1022)<12|8 THEN 9|
|000006c0| 30 0d 0a 31 32 30 20 54 | 32 21 3d 54 49 4d 45 52 |0..120 T|2!=TIMER|
|000006d0| 3a 4f 55 54 20 31 30 31 | 39 2c 31 33 31 3a 4f 55 |:OUT 101|9,131:OU|
|000006e0| 54 20 31 30 31 36 2c 31 | 32 38 3a 4f 55 54 20 31 |T 1016,1|28:OUT 1|
|000006f0| 30 31 37 2c 31 3a 4f 55 | 54 20 31 30 31 39 2c 33 |017,1:OU|T 1019,3|
|00000700| 3a 47 4f 54 4f 20 31 39 | 30 0d 0a 31 33 30 20 41 |:GOTO 19|0..130 A|
|00000710| 3d 41 2b 43 48 52 24 28 | 31 33 29 3a 46 4f 52 20 |=A+CHR$(|13):FOR |
|00000720| 4c 41 3d 31 20 54 4f 20 | 4c 45 4e 28 41 29 0d 0a |LA=1 TO |LEN(A)..|
|00000730| 31 34 30 20 49 46 28 49 | 4e 50 28 31 30 32 31 29 |140 IF(I|NP(1021)|
|00000740| 41 4e 44 20 31 29 54 48 | 45 4e 20 44 55 4d 59 3d |AND 1)TH|EN DUMY=|
|00000750| 49 4e 50 28 31 30 31 36 | 29 0d 0a 31 35 30 20 49 |INP(1016|)..150 I|
|00000760| 46 28 49 4e 50 28 31 30 | 32 31 29 41 4e 44 20 33 |F(INP(10|21)AND 3|
|00000770| 32 29 3d 30 20 54 48 45 | 4e 20 31 34 30 0d 0a 31 |2)=0 THE|N 140..1|
|00000780| 36 30 20 4f 55 54 20 31 | 30 31 36 2c 41 53 43 28 |60 OUT 1|016,ASC(|
|00000790| 4d 49 44 24 28 41 2c 4c | 41 2c 31 29 29 3a 4e 45 |MID$(A,L|A,1)):NE|
|000007a0| 58 54 3a 52 45 54 55 52 | 4e 0d 0a 31 37 30 20 54 |XT:RETUR|N..170 T|
|000007b0| 21 3d 54 49 4d 45 52 2b | 32 0d 0a 31 38 30 20 49 |!=TIMER+|2..180 I|
|000007c0| 46 20 54 49 4d 45 52 3c | 54 21 41 4e 44 20 54 21 |F TIMER<|T!AND T!|
|000007d0| 3c 38 36 34 30 30 21 20 | 54 48 45 4e 20 31 38 30 |<86400! |THEN 180|
|000007e0| 20 45 4c 53 45 20 52 45 | 54 55 52 4e 0d 0a 31 39 | ELSE RE|TURN..19|
|000007f0| 30 20 42 44 3d 46 31 24 | 28 31 29 3a 47 4f 53 55 |0 BD=F1$|(1):GOSU|
|00000800| 42 20 34 34 30 0d 0a 32 | 30 30 20 43 41 4c 4c 20 |B 440..2|00 CALL |
|00000810| 49 4f 2e 4f 3a 41 3d 22 | 43 6f 64 65 6e 61 6d 65 |IO.O:A="|Codename|
|00000820| 3f 20 22 3a 46 47 3d 33 | 30 3a 43 41 4c 4c 20 49 |? ":FG=3|0:CALL I|
|00000830| 4f 2e 49 3a 47 4f 53 55 | 42 20 34 38 30 3a 47 4f |O.I:GOSU|B 480:GO|
|00000840| 53 55 42 20 34 39 30 3a | 41 4f 3d 41 4c 3a 49 46 |SUB 490:|AO=AL:IF|
|00000850| 20 41 4c 3d 22 22 20 54 | 48 45 4e 20 32 30 30 0d | AL="" T|HEN 200.|
|00000860| 0a 32 32 30 20 43 41 4c | 4c 20 49 4f 2e 4f 3a 41 |.220 CAL|L IO.O:A|
|00000870| 3d 22 50 61 73 73 77 6f | 72 64 3f 20 22 3a 46 47 |="Passwo|rd? ":FG|
|00000880| 3d 32 30 3a 43 41 4c 4c | 20 49 4f 2e 49 3a 47 4f |=20:CALL| IO.I:GO|
|00000890| 53 55 42 20 34 38 30 3a | 47 4f 53 55 42 20 34 39 |SUB 480:|GOSUB 49|
|000008a0| 30 3a 41 46 3d 41 4c 3a | 49 46 20 41 4c 3d 22 22 |0:AF=AL:|IF AL=""|
|000008b0| 20 54 48 45 4e 20 32 32 | 30 0d 0a 32 34 30 20 46 | THEN 22|0..240 F|
|000008c0| 4f 52 20 55 58 3d 31 20 | 54 4f 20 4c 4f 46 28 33 |OR UX=1 |TO LOF(3|
|000008d0| 29 2f 32 35 36 3a 47 45 | 54 20 33 2c 55 58 0d 0a |)/256:GE|T 3,UX..|
|000008e0| 32 35 30 20 49 46 20 41 | 4e 3d 41 4f 2b 53 54 52 |250 IF A|N=AO+STR|
|000008f0| 49 4e 47 24 28 33 30 2d | 4c 45 4e 28 41 4f 29 2c |ING$(30-|LEN(AO),|
|00000900| 33 32 29 20 54 48 45 4e | 20 49 46 20 50 53 24 3d |32) THEN| IF PS$=|
|00000910| 41 46 2b 53 54 52 49 4e | 47 24 28 32 30 2d 4c 45 |AF+STRIN|G$(20-LE|
|00000920| 4e 28 41 46 29 2c 33 32 | 29 20 54 48 45 4e 20 32 |N(AF),32|) THEN 2|
|00000930| 39 30 20 45 4c 53 45 20 | 32 30 30 0d 0a 32 36 30 |90 ELSE |200..260|
|00000940| 20 4e 45 58 54 3a 46 4f | 52 20 55 58 3d 31 20 54 | NEXT:FO|R UX=1 T|
|00000950| 4f 20 4c 4f 46 28 33 29 | 2f 32 35 36 3a 47 45 54 |O LOF(3)|/256:GET|
|00000960| 20 33 2c 55 58 3a 49 46 | 20 4c 45 46 54 24 28 41 | 3,UX:IF| LEFT$(A|
|00000970| 4e 2c 38 29 3c 3e 22 5a | 5a 5a 5a 5a 4e 55 4c 22 |N,8)<>"Z|ZZZZNUL"|
|00000980| 20 54 48 45 4e 20 4e 45 | 58 54 3a 47 45 54 20 33 | THEN NE|XT:GET 3|
|00000990| 2c 55 58 0d 0a 32 37 30 | 20 4c 53 45 54 20 41 4e |,UX..270| LSET AN|
|000009a0| 3d 41 4f 3a 4c 53 45 54 | 20 50 53 24 3d 41 46 3a |=AO:LSET| PS$=AF:|
|000009b0| 4c 53 45 54 20 41 43 3d | 44 41 54 45 24 0d 0a 32 |LSET AC=|DATE$..2|
|000009c0| 38 30 20 50 55 54 20 33 | 2c 55 58 3a 43 38 3d 31 |80 PUT 3|,UX:C8=1|
|000009d0| 3a 41 3d 22 52 65 6d 65 | 6d 62 65 72 20 79 6f 75 |:A="Reme|mber you|
|000009e0| 72 20 70 61 73 73 77 6f | 72 64 2e 22 3a 43 41 4c |r passwo|rd.":CAL|
|000009f0| 4c 20 49 4f 2e 4f 0d 0a | 32 39 30 20 49 46 20 41 |L IO.O..|290 IF A|
|00000a00| 43 3c 3e 44 41 54 45 24 | 20 54 48 45 4e 20 43 38 |C<>DATE$| THEN C8|
|00000a10| 3d 31 3a 4c 53 45 54 20 | 41 43 3d 44 41 54 45 24 |=1:LSET |AC=DATE$|
|00000a20| 20 45 4c 53 45 20 43 38 | 3d 56 41 4c 28 42 31 29 | ELSE C8|=VAL(B1)|
|00000a30| 0d 0a 33 30 30 20 43 32 | 3d 56 41 4c 28 41 31 29 |..300 C2|=VAL(A1)|
|00000a40| 3a 49 46 20 4c 4d 20 4f | 52 20 43 32 3d 37 20 54 |:IF LM O|R C2=7 T|
|00000a50| 48 45 4e 20 43 58 21 3d | 31 38 30 30 30 30 21 3a |HEN CX!=|180000!:|
|00000a60| 47 4f 54 4f 20 33 34 30 | 0d 0a 33 31 30 20 43 38 |GOTO 340|..310 C8|
|00000a70| 3d 43 38 2b 31 3a 49 46 | 20 43 38 3e 33 20 54 48 |=C8+1:IF| C8>3 TH|
|00000a80| 45 4e 20 41 3d 22 53 6f | 72 72 79 2c 20 79 6f 75 |EN A="So|rry, you|
|00000a90| 20 68 61 76 65 20 65 78 | 63 65 65 64 65 64 20 74 | have ex|ceeded t|
|00000aa0| 68 65 20 63 61 6c 6c 20 | 6c 69 6d 69 74 20 72 65 |he call |limit re|
|00000ab0| 73 74 72 69 63 74 69 6f | 6e 21 22 3a 43 41 4c 4c |strictio|n!":CALL|
|00000ac0| 20 49 4f 2e 4f 3a 42 44 | 3d 46 31 24 28 34 29 3a | IO.O:BD|=F1$(4):|
|00000ad0| 47 4f 53 55 42 20 34 34 | 30 3a 4f 55 54 20 31 30 |GOSUB 44|0:OUT 10|
|00000ae0| 32 30 2c 30 3a 47 4f 54 | 4f 20 34 30 0d 0a 33 32 |20,0:GOT|O 40..32|
|00000af0| 30 20 4c 53 45 54 20 42 | 31 3d 52 49 47 48 54 24 |0 LSET B|1=RIGHT$|
|00000b00| 28 53 54 52 24 28 43 38 | 29 2c 31 29 3a 50 55 54 |(STR$(C8|),1):PUT|
|00000b10| 20 33 2c 55 58 0d 0a 33 | 33 30 20 49 34 3d 30 3a | 3,UX..3|30 I4=0:|
|00000b20| 49 46 20 4c 46 3e 31 20 | 54 48 45 4e 20 43 58 21 |IF LF>1 |THEN CX!|
|00000b30| 3d 31 38 30 30 20 45 4c | 53 45 20 43 58 21 3d 31 |=1800 EL|SE CX!=1|
|00000b40| 35 30 30 0d 0a 33 34 30 | 20 42 44 3d 46 31 24 28 |500..340| BD=F1$(|
|00000b50| 33 29 3a 47 4f 53 55 42 | 20 34 34 30 0d 0a 33 35 |3):GOSUB| 440..35|
|00000b60| 30 20 41 3d 22 57 65 6c | 63 6f 6d 65 20 22 2b 43 |0 A="Wel|come "+C|
|00000b70| 48 52 24 28 33 34 29 2b | 41 4f 2b 43 48 52 24 28 |HR$(34)+|AO+CHR$(|
|00000b80| 33 34 29 0d 0a 33 36 30 | 20 42 44 3d 46 31 24 28 |34)..360| BD=F1$(|
|00000b90| 32 29 3a 47 4f 53 55 42 | 20 34 34 30 0d 0a 33 37 |2):GOSUB| 440..37|
|00000ba0| 30 20 43 41 4c 4c 20 44 | 4e 44 0d 0a 33 38 30 20 |0 CALL D|ND..380 |
|00000bb0| 49 46 20 54 49 4d 45 52 | 3d 3e 54 32 21 54 48 45 |IF TIMER|=>T2!THE|
|00000bc0| 4e 20 54 33 21 3d 54 49 | 4d 45 52 2d 54 32 21 20 |N T3!=TI|MER-T2! |
|00000bd0| 45 4c 53 45 20 54 33 21 | 3d 54 49 4d 45 52 2b 38 |ELSE T3!|=TIMER+8|
|00000be0| 36 34 30 30 21 2d 54 32 | 21 0d 0a 33 39 30 20 41 |6400!-T2|!..390 A|
|00000bf0| 3d 22 59 6f 75 20 77 65 | 72 65 20 6f 6e 20 66 6f |="You we|re on fo|
|00000c00| 72 22 0d 0a 34 30 30 20 | 54 35 21 3d 49 4e 54 28 |r"..400 |T5!=INT(|
|00000c10| 54 33 21 2f 36 30 21 29 | 0d 0a 34 31 30 20 54 34 |T3!/60!)|..410 T4|
|00000c20| 21 3d 54 33 21 2d 54 35 | 21 2a 36 30 21 3a 49 46 |!=T3!-T5|!*60!:IF|
|00000c30| 20 54 35 21 3d 30 20 54 | 48 45 4e 20 41 3d 41 2b | T5!=0 T|HEN A=A+|
|00000c40| 53 54 52 24 28 49 4e 54 | 28 54 34 21 29 29 2b 22 |STR$(INT|(T4!))+"|
|00000c50| 20 73 65 63 2e 22 3a 47 | 4f 54 4f 20 34 33 30 0d | sec.":G|OTO 430.|
|00000c60| 0a 34 32 30 20 49 46 20 | 54 35 21 3e 36 30 21 20 |.420 IF |T5!>60! |
|00000c70| 54 48 45 4e 20 41 3d 41 | 2b 22 20 6d 6f 72 65 20 |THEN A=A|+" more |
|00000c80| 74 68 61 6e 20 61 6e 20 | 68 6f 75 72 2e 22 20 45 |than an |hour." E|
|00000c90| 4c 53 45 20 41 3d 41 2b | 53 54 52 24 28 54 35 21 |LSE A=A+|STR$(T5!|
|00000ca0| 29 2b 22 20 6d 69 6e 2e | 22 3a 49 46 20 54 34 21 |)+" min.|":IF T4!|
|00000cb0| 20 54 48 45 4e 20 41 3d | 41 2b 22 20 61 6e 64 22 | THEN A=|A+" and"|
|00000cc0| 2b 53 54 52 24 28 49 4e | 54 28 54 34 21 29 29 2b |+STR$(IN|T(T4!))+|
|00000cd0| 22 20 73 65 63 2e 22 20 | 45 4c 53 45 20 41 3d 41 |" sec." |ELSE A=A|
|00000ce0| 2b 22 2e 22 0d 0a 34 33 | 30 20 54 32 21 3d 54 49 |+"."..43|0 T2!=TI|
|00000cf0| 4d 45 52 3a 43 41 4c 4c | 20 49 4f 2e 4f 3a 42 44 |MER:CALL| IO.O:BD|
|00000d00| 3d 46 31 24 28 34 29 3a | 47 4f 53 55 42 20 34 34 |=F1$(4):|GOSUB 44|
|00000d10| 30 3a 47 4f 54 4f 20 34 | 30 0d 0a 34 34 30 20 43 |0:GOTO 4|0..440 C|
|00000d20| 4c 4f 53 45 20 31 3a 4f | 50 45 4e 20 22 52 22 2c |LOSE 1:O|PEN "R",|
|00000d30| 31 2c 42 44 2c 31 3a 49 | 46 20 4c 4f 46 28 31 29 |1,BD,1:I|F LOF(1)|
|00000d40| 3d 30 20 54 48 45 4e 20 | 34 37 30 0d 0a 34 35 30 |=0 THEN |470..450|
|00000d50| 20 43 4c 4f 53 45 20 31 | 3a 4f 50 45 4e 20 22 49 | CLOSE 1|:OPEN "I|
|00000d60| 22 2c 31 2c 42 44 3a 57 | 48 49 4c 45 20 45 4f 46 |",1,BD:W|HILE EOF|
|00000d70| 28 31 29 3d 30 3a 4c 49 | 4e 45 20 49 4e 50 55 54 |(1)=0:LI|NE INPUT|
|00000d80| 23 31 2c 41 3a 43 41 4c | 4c 20 49 4f 2e 4f 0d 0a |#1,A:CAL|L IO.O..|
|00000d90| 34 36 30 20 57 45 4e 44 | 0d 0a 34 37 30 20 43 4c |460 WEND|..470 CL|
|00000da0| 4f 53 45 20 31 3a 52 45 | 54 55 52 4e 0d 0a 34 38 |OSE 1:RE|TURN..48|
|00000db0| 30 20 46 4f 52 20 55 43 | 3d 31 20 54 4f 20 4c 45 |0 FOR UC|=1 TO LE|
|00000dc0| 4e 28 41 4c 29 3a 55 43 | 31 3d 41 53 43 28 4d 49 |N(AL):UC|1=ASC(MI|
|00000dd0| 44 24 28 41 4c 2c 55 43 | 2c 31 29 29 3a 4d 49 44 |D$(AL,UC|,1)):MID|
|00000de0| 24 28 41 4c 2c 55 43 2c | 31 29 3d 43 48 52 24 28 |$(AL,UC,|1)=CHR$(|
|00000df0| 55 43 31 2b 33 32 2a 28 | 55 43 31 3e 39 36 20 41 |UC1+32*(|UC1>96 A|
|00000e00| 4e 44 20 55 43 31 3c 31 | 32 33 29 29 3a 4e 45 58 |ND UC1<1|23)):NEX|
|00000e10| 54 3a 52 45 54 55 52 4e | 0d 0a 34 39 30 20 49 46 |T:RETURN|..490 IF|
|00000e20| 20 4c 45 46 54 24 28 41 | 4c 2c 31 29 3d 22 20 22 | LEFT$(A|L,1)=" "|
|00000e30| 20 54 48 45 4e 20 41 4c | 3d 4d 49 44 24 28 41 4c | THEN AL|=MID$(AL|
|00000e40| 2c 32 29 3a 47 4f 54 4f | 20 34 39 30 0d 0a 35 30 |,2):GOTO| 490..50|
|00000e50| 30 20 52 45 54 55 52 4e | 0d 0a 35 31 30 20 49 46 |0 RETURN|..510 IF|
|00000e60| 20 45 52 4c 3d 32 30 20 | 54 48 45 4e 20 50 52 49 | ERL=20 |THEN PRI|
|00000e70| 4e 54 20 22 42 41 44 20 | 4f 52 20 4d 49 53 53 49 |NT "BAD |OR MISSI|
|00000e80| 4e 47 20 43 4f 4e 46 49 | 47 55 52 41 54 49 4f 4e |NG CONFI|GURATION|
|00000e90| 20 46 49 4c 45 22 3a 52 | 45 53 55 4d 45 20 35 35 | FILE":R|ESUME 55|
|00000ea0| 30 0d 0a 35 32 30 20 49 | 46 20 45 52 52 3d 37 35 |0..520 I|F ERR=75|
|00000eb0| 20 4f 52 20 45 52 52 3d | 37 36 20 54 48 45 4e 20 | OR ERR=|76 THEN |
|00000ec0| 50 52 49 4e 54 20 22 42 | 41 44 20 50 41 54 48 4e |PRINT "B|AD PATHN|
|00000ed0| 41 4d 45 20 2d 2d 20 52 | 55 4e 20 43 4f 4e 46 49 |AME -- R|UN CONFI|
|00000ee0| 47 55 52 41 54 49 4f 4e | 20 50 52 4f 47 52 41 4d |GURATION| PROGRAM|
|00000ef0| 22 3a 52 45 53 55 4d 45 | 20 35 35 30 0d 0a 35 33 |":RESUME| 550..53|
|00000f00| 30 20 50 52 49 4e 54 20 | 22 45 72 72 6f 72 22 45 |0 PRINT |"Error"E|
|00000f10| 52 52 22 69 6e 20 6d 6f | 64 75 6c 65 20 44 4e 44 |RR"in mo|dule DND|
|00000f20| 42 42 53 20 6e 75 6d 62 | 65 72 22 45 52 4c 0d 0a |BBS numb|er"ERL..|
|00000f30| 35 34 30 20 52 45 53 55 | 4d 45 20 4e 45 58 54 0d |540 RESU|ME NEXT.|
|00000f40| 0a 35 35 30 20 45 4e 44 | 0d 0a 1a 43 41 4c 4c 20 |.550 END|...CALL |
|00000f50| 49 4f 2e 4f 0d 0a 31 39 | 34 30 20 41 3d 41 49 3a |IO.O..19|40 A=AI:|
|00000f60| 43 52 3d 31 3a 43 41 4c | 4c 20 49 4f 2e 4f 0d 0a |CR=1:CAL|L IO.O..|
|00000f70| 31 39 35 30 20 4e 45 58 | 54 3a 49 46 20 43 4d 20 |1950 NEX|T:IF CM |
|00000f80| 31 30 20 44 49 4d 20 54 | 53 28 31 32 29 2c 43 24 |10 DIM T|S(12),C$|
|00000f90| 28 38 29 3a 43 4f 4c 4f | 52 20 31 34 2c 31 2c 31 |(8):COLO|R 14,1,1|
|00000fa0| 3a 43 4c 53 3a 4c 4f 43 | 41 54 45 20 31 30 2c 32 |:CLS:LOC|ATE 10,2|
|00000fb0| 30 3a 50 52 49 4e 54 20 | 22 54 48 45 20 41 44 56 |0:PRINT |"THE ADV|
|00000fc0| 45 4e 54 55 52 45 20 53 | 59 53 54 45 4d 20 43 4f |ENTURE S|YSTEM CO|
|00000fd0| 4e 46 49 47 55 52 41 54 | 49 4f 4e 20 50 52 4f 47 |NFIGURAT|ION PROG|
|00000fe0| 52 41 4d 22 0d 0a 32 30 | 20 4c 4f 43 41 54 45 20 |RAM"..20| LOCATE |
|00000ff0| 31 31 2c 32 32 3a 50 52 | 49 4e 54 20 22 43 4f 50 |11,22:PR|INT "COP|
|00001000| 59 52 49 47 48 54 20 28 | 43 29 20 31 39 38 37 20 |YRIGHT (|C) 1987 |
|00001010| 41 6c 6c 20 52 69 67 68 | 74 73 20 52 65 73 65 72 |All Righ|ts Reser|
|00001020| 76 65 64 22 0d 0a 35 30 | 20 4f 4e 20 45 52 52 4f |ved"..50| ON ERRO|
|00001030| 52 20 47 4f 54 4f 20 31 | 30 30 30 0d 0a 36 30 20 |R GOTO 1|000..60 |
|00001040| 43 4c 4f 53 45 20 31 3a | 4f 50 45 4e 20 22 49 22 |CLOSE 1:|OPEN "I"|
|00001050| 2c 31 2c 22 44 4e 44 42 | 42 53 2e 43 4e 46 22 3a |,1,"DNDB|BS.CNF":|
|00001060| 4c 49 4e 45 20 49 4e 50 | 55 54 20 23 31 2c 50 41 |LINE INP|UT #1,PA|
|00001070| 31 24 3a 4c 49 4e 45 20 | 49 4e 50 55 54 20 23 31 |1$:LINE |INPUT #1|
|00001080| 2c 50 41 32 24 0d 0a 37 | 30 20 4c 49 4e 45 20 49 |,PA2$..7|0 LINE I|
|00001090| 4e 50 55 54 20 23 31 2c | 50 52 45 4c 4f 47 24 3a |NPUT #1,|PRELOG$:|
|000010a0| 4c 49 4e 45 20 49 4e 50 | 55 54 20 23 31 2c 57 45 |LINE INP|UT #1,WE|
|000010b0| 4c 43 4f 4d 45 24 3a 4c | 49 4e 45 20 49 4e 50 55 |LCOME$:L|INE INPU|
|000010c0| 54 20 23 31 2c 4e 4f 54 | 49 43 45 24 3a 4c 49 4e |T #1,NOT|ICE$:LIN|
|000010d0| 45 20 49 4e 50 55 54 20 | 23 31 2c 4c 4f 47 4f 46 |E INPUT |#1,LOGOF|
|000010e0| 46 24 3a 46 4f 52 20 4c | 50 3d 31 20 54 4f 20 31 |F$:FOR L|P=1 TO 1|
|000010f0| 32 3a 49 4e 50 55 54 20 | 23 31 2c 54 53 28 4c 50 |2:INPUT |#1,TS(LP|
|00001100| 29 3a 4e 45 58 54 3a 47 | 4f 54 4f 20 32 30 30 0d |):NEXT:G|OTO 200.|
|00001110| 0a 31 32 30 20 43 4f 4c | 4f 52 20 37 2c 31 2c 31 |.120 COL|OR 7,1,1|
|00001120| 3a 4c 4f 43 41 54 45 20 | 31 32 2c 32 35 3a 50 52 |:LOCATE |12,25:PR|
|00001130| 49 4e 54 20 22 43 4f 4e | 46 49 47 55 52 41 54 49 |INT "CON|FIGURATI|
|00001140| 4f 4e 20 46 49 4c 45 20 | 42 41 44 20 4f 52 20 4d |ON FILE |BAD OR M|
|00001150| 49 53 53 49 4e 47 2e 22 | 3a 4c 4f 43 41 54 45 20 |ISSING."|:LOCATE |
|00001160| 31 33 2c 33 30 3a 50 52 | 49 4e 54 20 22 43 52 45 |13,30:PR|INT "CRE|
|00001170| 41 54 49 4e 47 20 4e 45 | 57 20 46 49 4c 45 2e 22 |ATING NE|W FILE."|
|00001180| 0d 0a 31 33 30 20 43 4c | 4f 53 45 20 31 3a 4f 50 |..130 CL|OSE 1:OP|
|00001190| 45 4e 20 22 4f 22 2c 31 | 2c 22 44 4e 44 42 42 53 |EN "O",1|,"DNDBBS|
|000011a0| 2e 43 4e 46 22 3a 50 52 | 49 4e 54 20 23 31 2c 22 |.CNF":PR|INT #1,"|
|000011b0| 43 3a 5c 42 42 53 5c 44 | 41 54 41 5c 22 3a 50 52 |C:\BBS\D|ATA\":PR|
|000011c0| 49 4e 54 20 23 31 2c 22 | 43 3a 5c 42 42 53 5c 48 |INT #1,"|C:\BBS\H|
|000011d0| 45 4c 50 5c 22 0d 0a 31 | 34 30 20 50 52 49 4e 54 |ELP\"..1|40 PRINT|
|000011e0| 20 23 31 2c 22 50 52 45 | 4c 4f 47 2e 44 41 54 22 | #1,"PRE|LOG.DAT"|
|000011f0| 3a 50 52 49 4e 54 20 23 | 31 2c 22 57 45 4c 43 4f |:PRINT #|1,"WELCO|
|00001200| 4d 45 2e 44 41 54 22 3a | 50 52 49 4e 54 20 23 31 |ME.DAT":|PRINT #1|
|00001210| 2c 22 4e 4f 54 49 43 45 | 2e 44 41 54 22 3a 50 52 |,"NOTICE|.DAT":PR|
|00001220| 49 4e 54 20 23 31 2c 22 | 4c 4f 47 4f 46 46 2e 44 |INT #1,"|LOGOFF.D|
|00001230| 41 54 22 3a 46 4f 52 20 | 4c 50 3d 31 20 54 4f 20 |AT":FOR |LP=1 TO |
|00001240| 31 32 3a 50 52 49 4e 54 | 20 23 31 2c 22 31 22 3a |12:PRINT| #1,"1":|
|00001250| 4e 45 58 54 3a 47 4f 54 | 4f 20 36 30 0d 0a 31 36 |NEXT:GOT|O 60..16|
|00001260| 30 20 43 4f 4c 4f 52 20 | 37 2c 31 2c 31 3a 4c 4f |0 COLOR |7,1,1:LO|
|00001270| 43 41 54 45 20 31 34 2c | 32 32 3a 50 52 49 4e 54 |CATE 14,|22:PRINT|
|00001280| 20 22 55 4e 41 42 4c 45 | 20 54 4f 20 43 52 45 41 | "UNABLE| TO CREA|
|00001290| 54 45 20 43 4f 4e 46 49 | 47 55 52 41 54 49 4f 4e |TE CONFI|GURATION|
|000012a0| 20 46 49 4c 45 2e 22 3a | 45 4e 44 0d 0a 32 30 30 | FILE.":|END..200|
|000012b0| 20 4c 4f 43 41 54 45 20 | 31 35 2c 32 38 3a 43 4f | LOCATE |15,28:CO|
|000012c0| 4c 4f 52 20 31 35 3a 50 | 52 49 4e 54 20 22 50 72 |LOR 15:P|RINT "Pr|
|000012d0| 65 73 73 20 52 45 54 55 | 52 4e 20 74 6f 20 63 6f |ess RETU|RN to co|
|000012e0| 6e 74 69 6e 75 65 2e 22 | 0d 0a 32 31 30 20 58 24 |ntinue."|..210 X$|
|000012f0| 3d 49 4e 4b 45 59 24 3a | 57 48 49 4c 45 20 58 24 |=INKEY$:|WHILE X$|
|00001300| 3c 3e 43 48 52 24 28 31 | 33 29 3a 58 24 3d 49 4e |<>CHR$(1|3):X$=IN|
|00001310| 4b 45 59 24 3a 57 45 4e | 44 0d 0a 32 33 30 20 43 |KEY$:WEN|D..230 C|
|00001320| 4c 53 3a 43 4f 4c 4f 52 | 20 37 3a 20 4c 4f 43 41 |LS:COLOR| 7: LOCA|
|00001330| 54 45 20 39 2c 32 30 3a | 50 52 49 4e 54 20 22 46 |TE 9,20:|PRINT "F|
|00001340| 31 20 2d 20 53 55 42 44 | 49 52 45 43 54 4f 52 59 |1 - SUBD|IRECTORY|
|00001350| 20 46 4f 52 20 44 41 54 | 41 20 46 49 4c 45 53 20 | FOR DAT|A FILES |
|00001360| 22 3b 3a 43 4f 4c 4f 52 | 20 31 35 3a 50 52 49 4e |";:COLOR| 15:PRIN|
|00001370| 54 20 50 41 31 24 0d 0a | 32 33 31 20 43 4f 4c 4f |T PA1$..|231 COLO|
|00001380| 52 20 37 3a 4c 4f 43 41 | 54 45 20 31 30 2c 32 30 |R 7:LOCA|TE 10,20|
|00001390| 3a 50 52 49 4e 54 20 22 | 46 32 20 2d 20 53 55 42 |:PRINT "|F2 - SUB|
|000013a0| 44 49 52 45 43 54 4f 52 | 59 20 46 4f 52 20 48 45 |DIRECTOR|Y FOR HE|
|000013b0| 4c 50 20 46 49 4c 45 53 | 20 22 3b 3a 43 4f 4c 4f |LP FILES| ";:COLO|
|000013c0| 52 20 31 35 3a 50 52 49 | 4e 54 20 50 41 32 24 0d |R 15:PRI|NT PA2$.|
|000013d0| 0a 32 33 32 20 43 4f 4c | 4f 52 20 37 3a 4c 4f 43 |.232 COL|OR 7:LOC|
|000013e0| 41 54 45 20 31 31 2c 32 | 30 3a 50 52 49 4e 54 20 |ATE 11,2|0:PRINT |
|000013f0| 22 46 33 20 2d 20 46 49 | 4c 45 4e 41 4d 45 20 46 |"F3 - FI|LENAME F|
|00001400| 4f 52 20 50 52 45 4c 4f | 47 20 46 49 4c 45 20 20 |OR PRELO|G FILE  |
|00001410| 20 20 22 3b 3a 43 4f 4c | 4f 52 20 31 35 3a 50 52 |  ";:COL|OR 15:PR|
|00001420| 49 4e 54 20 50 52 45 4c | 4f 47 24 0d 0a 32 33 33 |INT PREL|OG$..233|
|00001430| 20 43 4f 4c 4f 52 20 37 | 3a 4c 4f 43 41 54 45 20 | COLOR 7|:LOCATE |
|00001440| 31 32 2c 32 30 3a 50 52 | 49 4e 54 20 22 46 34 20 |12,20:PR|INT "F4 |
|00001450| 2d 20 46 49 4c 45 4e 41 | 4d 45 20 46 4f 52 20 57 |- FILENA|ME FOR W|
|00001460| 45 4c 43 4f 4d 45 20 46 | 49 4c 45 20 20 20 22 3b |ELCOME F|ILE   ";|
|00001470| 3a 43 4f 4c 4f 52 20 31 | 35 3a 50 52 49 4e 54 20 |:COLOR 1|5:PRINT |
|00001480| 57 45 4c 43 4f 4d 45 24 | 0d 0a 32 33 34 20 43 4f |WELCOME$|..234 CO|
|00001490| 4c 4f 52 20 37 3a 4c 4f | 43 41 54 45 20 31 33 2c |LOR 7:LO|CATE 13,|
|000014a0| 32 30 3a 50 52 49 4e 54 | 20 22 46 35 20 2d 20 46 |20:PRINT| "F5 - F|
|000014b0| 49 4c 45 4e 41 4d 45 20 | 46 4f 52 20 4e 4f 54 49 |ILENAME |FOR NOTI|
|000014c0| 43 45 20 46 49 4c 45 20 | 20 20 20 22 3b 3a 43 4f |CE FILE |   ";:CO|
|000014d0| 4c 4f 52 20 31 35 3a 50 | 52 49 4e 54 20 4e 4f 54 |LOR 15:P|RINT NOT|
|000014e0| 49 43 45 24 0d 0a 32 33 | 35 20 43 4f 4c 4f 52 20 |ICE$..23|5 COLOR |
|000014f0| 37 3a 4c 4f 43 41 54 45 | 20 31 34 2c 32 30 3a 50 |7:LOCATE| 14,20:P|
|00001500| 52 49 4e 54 20 22 46 36 | 20 2d 20 46 49 4c 45 4e |RINT "F6| - FILEN|
|00001510| 41 4d 45 20 46 4f 52 20 | 4c 4f 47 4f 46 46 20 46 |AME FOR |LOGOFF F|
|00001520| 49 4c 45 20 20 20 20 22 | 3b 3a 43 4f 4c 4f 52 20 |ILE    "|;:COLOR |
|00001530| 31 35 3a 50 52 49 4e 54 | 20 4c 4f 47 4f 46 46 24 |15:PRINT| LOGOFF$|
|00001540| 0d 0a 32 33 36 20 43 4f | 4c 4f 52 20 37 3a 4c 4f |..236 CO|LOR 7:LO|
|00001550| 43 41 54 45 20 31 35 2c | 32 30 3a 50 52 49 4e 54 |CATE 15,|20:PRINT|
|00001560| 20 22 46 37 20 2d 20 4c | 4f 43 41 54 49 4f 4e 53 | "F7 - L|OCATIONS|
|00001570| 20 46 4f 52 20 54 52 41 | 49 4e 49 4e 47 20 41 52 | FOR TRA|INING AR|
|00001580| 45 41 53 22 3b 0d 0a 32 | 35 30 20 43 4f 4c 4f 52 |EAS";..2|50 COLOR|
|00001590| 20 31 35 3a 4c 4f 43 41 | 54 45 20 32 34 2c 31 35 | 15:LOCA|TE 24,15|
|000015a0| 3a 50 52 49 4e 54 20 22 | 50 52 45 53 53 20 46 55 |:PRINT "|PRESS FU|
|000015b0| 4e 43 54 49 4f 4e 20 4b | 45 59 20 54 4f 20 43 48 |NCTION K|EY TO CH|
|000015c0| 41 4e 47 45 20 56 41 4c | 55 45 20 4f 52 20 45 53 |ANGE VAL|UE OR ES|
|000015d0| 43 41 50 45 20 54 4f 20 | 45 4e 44 2e 22 3b 0d 0a |CAPE TO |END.";..|
|000015e0| 32 36 30 20 58 24 3d 49 | 4e 4b 45 59 24 3a 49 46 |260 X$=I|NKEY$:IF|
|000015f0| 20 4c 45 4e 28 58 24 29 | 3d 32 20 54 48 45 4e 20 | LEN(X$)|=2 THEN |
|00001600| 32 37 30 0d 0a 32 36 35 | 20 49 46 20 58 24 3d 43 |270..265| IF X$=C|
|00001610| 48 52 24 28 32 37 29 20 | 54 48 45 4e 20 34 32 30 |HR$(27) |THEN 420|
|00001620| 20 45 4c 53 45 20 32 36 | 30 0d 0a 32 37 30 20 46 | ELSE 26|0..270 F|
|00001630| 55 4e 43 54 49 4f 4e 3d | 41 53 43 28 52 49 47 48 |UNCTION=|ASC(RIGH|
|00001640| 54 24 28 58 24 2c 31 29 | 29 3a 49 46 20 46 55 4e |T$(X$,1)|):IF FUN|
|00001650| 43 54 49 4f 4e 20 3c 20 | 35 39 20 4f 52 20 46 55 |CTION < |59 OR FU|
|00001660| 4e 43 54 49 4f 4e 20 3e | 20 36 35 20 54 48 45 4e |NCTION >| 65 THEN|
|00001670| 20 42 45 45 50 3a 47 4f | 54 4f 20 32 36 30 0d 0a | BEEP:GO|TO 260..|
|00001680| 32 38 30 20 4f 4e 20 46 | 55 4e 43 54 49 4f 4e 2d |280 ON F|UNCTION-|
|00001690| 35 38 20 47 4f 54 4f 20 | 33 30 30 2c 33 31 30 2c |58 GOTO |300,310,|
|000016a0| 33 32 30 2c 33 33 30 2c | 33 34 30 2c 33 35 30 2c |320,330,|340,350,|
|000016b0| 33 36 30 0d 0a 33 30 30 | 20 4c 4f 43 41 54 45 20 |360..300| LOCATE |
|000016c0| 32 30 2c 33 30 3a 4c 49 | 4e 45 20 49 4e 50 55 54 |20,30:LI|NE INPUT|
|000016d0| 20 22 44 41 54 41 46 49 | 4c 45 20 53 55 42 44 49 | "DATAFI|LE SUBDI|
|000016e0| 52 45 43 54 4f 52 59 3f | 20 22 2c 50 41 31 24 3a |RECTORY?| ",PA1$:|
|000016f0| 47 4f 54 4f 20 32 33 30 | 0d 0a 33 31 30 20 4c 4f |GOTO 230|..310 LO|
|00001700| 43 41 54 45 20 32 30 2c | 33 30 3a 4c 49 4e 45 20 |CATE 20,|30:LINE |
|00001710| 49 4e 50 55 54 20 22 48 | 45 4c 50 46 49 4c 45 20 |INPUT "H|ELPFILE |
|00001720| 53 55 42 44 49 52 45 43 | 54 4f 52 59 3f 20 22 2c |SUBDIREC|TORY? ",|
|00001730| 50 41 32 24 3a 47 4f 54 | 4f 20 32 33 30 0d 0a 33 |PA2$:GOT|O 230..3|
|00001740| 32 30 20 4c 4f 43 41 54 | 45 20 32 30 2c 33 30 3a |20 LOCAT|E 20,30:|
|00001750| 4c 49 4e 45 20 49 4e 50 | 55 54 20 22 50 52 45 4c |LINE INP|UT "PREL|
|00001760| 4f 47 20 46 49 4c 45 4e | 41 4d 45 3f 20 22 2c 50 |OG FILEN|AME? ",P|
|00001770| 52 45 4c 4f 47 24 3a 47 | 4f 54 4f 20 32 33 30 0d |RELOG$:G|OTO 230.|
|00001780| 0a 33 33 30 20 4c 4f 43 | 41 54 45 20 32 30 2c 33 |.330 LOC|ATE 20,3|
|00001790| 30 3a 4c 49 4e 45 20 49 | 4e 50 55 54 20 22 57 45 |0:LINE I|NPUT "WE|
|000017a0| 4c 43 4f 4d 45 20 46 49 | 4c 45 4e 41 4d 45 3f 20 |LCOME FI|LENAME? |
|000017b0| 22 2c 57 45 4c 43 4f 4d | 45 24 3a 47 4f 54 4f 20 |",WELCOM|E$:GOTO |
|000017c0| 32 33 30 0d 0a 33 34 30 | 20 4c 4f 43 41 54 45 20 |230..340| LOCATE |
|000017d0| 32 30 2c 33 30 3a 4c 49 | 4e 45 20 49 4e 50 55 54 |20,30:LI|NE INPUT|
|000017e0| 20 22 4e 4f 54 49 43 45 | 20 46 49 4c 45 4e 41 4d | "NOTICE| FILENAM|
|000017f0| 45 3f 20 22 2c 4e 4f 54 | 49 43 45 24 3a 47 4f 54 |E? ",NOT|ICE$:GOT|
|00001800| 4f 20 32 33 30 0d 0a 33 | 35 30 20 4c 4f 43 41 54 |O 230..3|50 LOCAT|
|00001810| 45 20 32 30 2c 33 30 3a | 4c 49 4e 45 20 49 4e 50 |E 20,30:|LINE INP|
|00001820| 55 54 20 22 4c 4f 47 4f | 46 46 20 46 49 4c 45 4e |UT "LOGO|FF FILEN|
|00001830| 41 4d 45 3f 20 22 2c 4c | 4f 47 4f 46 46 24 3a 47 |AME? ",L|OGOFF$:G|
|00001840| 4f 54 4f 20 32 33 30 0d | 0a 33 36 30 20 4c 4f 43 |OTO 230.|.360 LOC|
|00001850| 41 54 45 20 32 30 2c 33 | 30 3a 49 4e 50 55 54 20 |ATE 20,3|0:INPUT |
|00001860| 22 54 52 41 49 4e 49 4e | 47 20 41 52 45 41 20 46 |"TRAININ|G AREA F|
|00001870| 4f 52 20 46 49 47 48 54 | 45 52 53 3f 20 22 2c 54 |OR FIGHT|ERS? ",T|
|00001880| 53 28 31 29 0d 0a 33 36 | 31 20 4c 4f 43 41 54 45 |S(1)..36|1 LOCATE|
|00001890| 20 32 30 2c 31 3a 50 52 | 49 4e 54 20 53 54 52 49 | 20,1:PR|INT STRI|
|000018a0| 4e 47 24 28 37 39 2c 33 | 32 29 3b 0d 0a 33 36 32 |NG$(79,3|2);..362|
|000018b0| 20 4c 4f 43 41 54 45 20 | 32 30 2c 33 30 3a 49 4e | LOCATE |20,30:IN|
|000018c0| 50 55 54 20 22 54 52 41 | 49 4e 49 4e 47 20 41 52 |PUT "TRA|INING AR|
|000018d0| 45 41 20 46 4f 52 20 4d | 41 47 49 43 20 55 53 45 |EA FOR M|AGIC USE|
|000018e0| 52 53 3f 20 22 2c 54 53 | 28 32 29 0d 0a 33 36 33 |RS? ",TS|(2)..363|
|000018f0| 20 4c 4f 43 41 54 45 20 | 32 30 2c 31 3a 50 52 49 | LOCATE |20,1:PRI|
|00001900| 4e 54 20 53 54 52 49 4e | 47 24 28 37 39 2c 33 32 |NT STRIN|G$(79,32|
|00001910| 29 3b 0d 0a 33 36 34 20 | 4c 4f 43 41 54 45 20 32 |);..364 |LOCATE 2|
|00001920| 30 2c 33 30 3a 49 4e 50 | 55 54 20 22 54 52 41 49 |0,30:INP|UT "TRAI|
|00001930| 4e 49 4e 47 20 41 52 45 | 41 20 46 4f 52 20 54 48 |NING ARE|A FOR TH|
|00001940| 49 45 56 45 53 3f 20 22 | 2c 54 53 28 33 29 0d 0a |IEVES? "|,TS(3)..|
|00001950| 33 36 35 20 4c 4f 43 41 | 54 45 20 32 30 2c 31 3a |365 LOCA|TE 20,1:|
|00001960| 50 52 49 4e 54 20 53 54 | 52 49 4e 47 24 28 37 39 |PRINT ST|RING$(79|
|00001970| 2c 33 32 29 3b 0d 0a 33 | 36 36 20 4c 4f 43 41 54 |,32);..3|66 LOCAT|
|00001980| 45 20 32 30 2c 33 30 3a | 49 4e 50 55 54 20 22 54 |E 20,30:|INPUT "T|
|00001990| 52 41 49 4e 49 4e 47 20 | 41 52 45 41 20 46 4f 52 |RAINING |AREA FOR|
|000019a0| 20 43 4c 45 52 49 43 53 | 3f 20 22 2c 54 53 28 34 | CLERICS|? ",TS(4|
|000019b0| 29 0d 0a 33 36 37 20 4c | 4f 43 41 54 45 20 32 30 |)..367 L|OCATE 20|
|000019c0| 2c 31 3a 50 52 49 4e 54 | 20 53 54 52 49 4e 47 24 |,1:PRINT| STRING$|
|000019d0| 28 37 39 2c 33 32 29 3b | 0d 0a 33 36 38 20 4c 4f |(79,32);|..368 LO|
|000019e0| 43 41 54 45 20 32 30 2c | 33 30 3a 49 4e 50 55 54 |CATE 20,|30:INPUT|
|000019f0| 20 22 54 52 41 49 4e 49 | 4e 47 20 41 52 45 41 20 | "TRAINI|NG AREA |
|00001a00| 46 4f 52 20 50 41 4c 41 | 44 49 4e 53 3f 20 22 2c |FOR PALA|DINS? ",|
|00001a10| 54 53 28 35 29 0d 0a 33 | 36 39 20 4c 4f 43 41 54 |TS(5)..3|69 LOCAT|
|00001a20| 45 20 32 30 2c 31 3a 50 | 52 49 4e 54 20 53 54 52 |E 20,1:P|RINT STR|
|00001a30| 49 4e 47 24 28 37 39 2c | 33 32 29 3b 0d 0a 33 37 |ING$(79,|32);..37|
|00001a40| 30 20 4c 4f 43 41 54 45 | 20 32 30 2c 33 30 3a 49 |0 LOCATE| 20,30:I|
|00001a50| 4e 50 55 54 20 22 54 52 | 41 49 4e 49 4e 47 20 41 |NPUT "TR|AINING A|
|00001a60| 52 45 41 20 46 4f 52 20 | 52 41 4e 47 45 52 53 3f |REA FOR |RANGERS?|
|00001a70| 20 22 2c 54 53 28 36 29 | 0d 0a 33 37 31 20 4c 4f | ",TS(6)|..371 LO|
|00001a80| 43 41 54 45 20 32 30 2c | 31 3a 50 52 49 4e 54 20 |CATE 20,|1:PRINT |
|00001a90| 53 54 52 49 4e 47 24 28 | 37 39 2c 33 32 29 3b 0d |STRING$(|79,32);.|
|00001aa0| 0a 33 37 32 20 4c 4f 43 | 41 54 45 20 32 30 2c 33 |.372 LOC|ATE 20,3|
|00001ab0| 30 3a 49 4e 50 55 54 20 | 22 54 52 41 49 4e 49 4e |0:INPUT |"TRAININ|
|00001ac0| 47 20 41 52 45 41 20 46 | 4f 52 20 44 55 4e 47 45 |G AREA F|OR DUNGE|
|00001ad0| 4f 4e 20 4d 41 53 54 45 | 52 53 3f 20 22 2c 54 53 |ON MASTE|RS? ",TS|
|00001ae0| 28 37 29 0d 0a 33 37 33 | 20 4c 4f 43 41 54 45 20 |(7)..373| LOCATE |
|00001af0| 32 30 2c 31 3a 50 52 49 | 4e 54 20 53 54 52 49 4e |20,1:PRI|NT STRIN|
|00001b00| 47 24 28 37 39 2c 33 32 | 29 3b 0d 0a 33 37 34 20 |G$(79,32|);..374 |
|00001b10| 4c 4f 43 41 54 45 20 32 | 30 2c 33 30 3a 49 4e 50 |LOCATE 2|0,30:INP|
|00001b20| 55 54 20 22 52 4f 4f 4d | 20 4e 55 4d 42 45 52 20 |UT "ROOM| NUMBER |
|00001b30| 46 4f 52 20 4a 41 49 4c | 3f 20 22 2c 54 53 28 38 |FOR JAIL|? ",TS(8|
|00001b40| 29 0d 0a 33 37 35 20 4c | 4f 43 41 54 45 20 32 30 |)..375 L|OCATE 20|
|00001b50| 2c 31 3a 50 52 49 4e 54 | 20 53 54 52 49 4e 47 24 |,1:PRINT| STRING$|
|00001b60| 28 37 39 2c 33 32 29 3b | 0d 0a 33 37 36 20 4c 4f |(79,32);|..376 LO|
|00001b70| 43 41 54 45 20 32 30 2c | 33 30 3a 49 4e 50 55 54 |CATE 20,|30:INPUT|
|00001b80| 20 22 52 4f 4f 4d 20 4e | 55 4d 42 45 52 20 46 4f | "ROOM N|UMBER FO|
|00001b90| 52 20 43 4c 45 52 49 43 | 41 4c 20 53 41 4e 43 54 |R CLERIC|AL SANCT|
|00001ba0| 55 41 52 59 3f 20 22 2c | 54 53 28 39 29 0d 0a 33 |UARY? ",|TS(9)..3|
|00001bb0| 37 37 20 4c 4f 43 41 54 | 45 20 32 30 2c 31 3a 50 |77 LOCAT|E 20,1:P|
|00001bc0| 52 49 4e 54 20 53 54 52 | 49 4e 47 24 28 37 39 2c |RINT STR|ING$(79,|
|00001bd0| 33 32 29 3b 0d 0a 33 37 | 38 20 4c 4f 43 41 54 45 |32);..37|8 LOCATE|
|00001be0| 20 32 30 2c 33 30 3a 49 | 4e 50 55 54 20 22 52 4f | 20,30:I|NPUT "RO|
|00001bf0| 4f 4d 20 4e 55 4d 42 45 | 52 20 46 4f 52 20 50 41 |OM NUMBE|R FOR PA|
|00001c00| 57 4e 20 53 48 4f 50 3f | 20 22 2c 54 53 28 31 30 |WN SHOP?| ",TS(10|
|00001c10| 29 0d 0a 33 37 39 20 4c | 4f 43 41 54 45 20 32 30 |)..379 L|OCATE 20|
|00001c20| 2c 31 3a 50 52 49 4e 54 | 20 53 54 52 49 4e 47 24 |,1:PRINT| STRING$|
|00001c30| 28 37 39 2c 33 32 29 3b | 0d 0a 33 38 30 20 4c 4f |(79,32);|..380 LO|
|00001c40| 43 41 54 45 20 32 30 2c | 33 30 3a 49 4e 50 55 54 |CATE 20,|30:INPUT|
|00001c50| 20 22 52 4f 4f 4d 20 4e | 55 4d 42 45 52 20 46 4f | "ROOM N|UMBER FO|
|00001c60| 52 20 57 45 41 50 4f 4e | 53 20 53 48 4f 50 3f 20 |R WEAPON|S SHOP? |
|00001c70| 22 2c 54 53 28 31 31 29 | 0d 0a 33 38 31 20 4c 4f |",TS(11)|..381 LO|
|00001c80| 43 41 54 45 20 32 30 2c | 31 3a 50 52 49 4e 54 20 |CATE 20,|1:PRINT |
|00001c90| 53 54 52 49 4e 47 24 28 | 37 39 2c 33 32 29 3b 0d |STRING$(|79,32);.|
|00001ca0| 0a 33 38 32 20 4c 4f 43 | 41 54 45 20 32 30 2c 33 |.382 LOC|ATE 20,3|
|00001cb0| 30 3a 49 4e 50 55 54 20 | 22 52 4f 4f 4d 20 4e 55 |0:INPUT |"ROOM NU|
|00001cc0| 4d 42 45 52 20 46 4f 52 | 20 43 41 53 49 4e 4f 3f |MBER FOR| CASINO?|
|00001cd0| 20 22 2c 54 53 28 31 32 | 29 3a 47 4f 54 4f 20 32 | ",TS(12|):GOTO 2|
|00001ce0| 33 30 0d 0a 34 32 30 20 | 4c 4f 43 41 54 45 20 32 |30..420 |LOCATE 2|
|00001cf0| 30 2c 33 30 3a 50 52 49 | 4e 54 20 22 53 41 56 45 |0,30:PRI|NT "SAVE|
|00001d00| 20 56 41 4c 55 45 53 3f | 20 22 3b 0d 0a 34 32 31 | VALUES?| ";..421|
|00001d10| 20 58 24 3d 49 4e 4b 45 | 59 24 3a 57 48 49 4c 45 | X$=INKE|Y$:WHILE|
|00001d20| 20 58 24 3d 22 22 3a 58 | 24 3d 49 4e 4b 45 59 24 | X$="":X|$=INKEY$|
|00001d30| 3a 57 45 4e 44 3a 49 46 | 20 58 24 3d 22 59 22 20 |:WEND:IF| X$="Y" |
|00001d40| 4f 52 20 58 24 3d 22 79 | 22 20 54 48 45 4e 20 47 |OR X$="y|" THEN G|
|00001d50| 4f 54 4f 20 34 33 30 0d | 0a 34 32 35 20 49 46 20 |OTO 430.|.425 IF |
|00001d60| 58 24 3d 22 4e 22 20 4f | 52 20 58 24 3d 22 6e 22 |X$="N" O|R X$="n"|
|00001d70| 20 54 48 45 4e 20 35 30 | 30 20 45 4c 53 45 20 34 | THEN 50|0 ELSE 4|
|00001d80| 32 31 0d 0a 34 33 30 20 | 43 4c 4f 53 45 20 31 3a |21..430 |CLOSE 1:|
|00001d90| 4f 50 45 4e 20 22 4f 22 | 2c 31 2c 22 44 4e 44 42 |OPEN "O"|,1,"DNDB|
|00001da0| 42 53 2e 43 4e 46 22 3a | 50 52 49 4e 54 20 23 31 |BS.CNF":|PRINT #1|
|00001db0| 2c 50 41 31 24 3a 50 52 | 49 4e 54 20 23 31 2c 50 |,PA1$:PR|INT #1,P|
|00001dc0| 41 32 24 0d 0a 34 34 30 | 20 50 52 49 4e 54 20 23 |A2$..440| PRINT #|
|00001dd0| 31 2c 50 52 45 4c 4f 47 | 24 3a 50 52 49 4e 54 20 |1,PRELOG|$:PRINT |
|00001de0| 23 31 2c 57 45 4c 43 4f | 4d 45 24 3a 50 52 49 4e |#1,WELCO|ME$:PRIN|
|00001df0| 54 20 23 31 2c 4e 4f 54 | 49 43 45 24 3a 50 52 49 |T #1,NOT|ICE$:PRI|
|00001e00| 4e 54 20 23 31 2c 4c 4f | 47 4f 46 46 24 0d 0a 34 |NT #1,LO|GOFF$..4|
|00001e10| 35 30 20 46 4f 52 20 4c | 50 3d 31 20 54 4f 20 31 |50 FOR L|P=1 TO 1|
|00001e20| 32 3a 50 52 49 4e 54 20 | 23 31 2c 54 53 28 4c 50 |2:PRINT |#1,TS(LP|
|00001e30| 29 3a 4e 45 58 54 0d 0a | 34 36 30 20 43 4c 4f 53 |):NEXT..|460 CLOS|
|00001e40| 45 20 31 0d 0a 35 30 30 | 20 4c 4f 43 41 54 45 20 |E 1..500| LOCATE |
|00001e50| 32 30 2c 33 30 3a 50 52 | 49 4e 54 20 22 45 58 49 |20,30:PR|INT "EXI|
|00001e60| 54 20 50 52 4f 47 52 41 | 4d 3f 20 22 3b 0d 0a 35 |T PROGRA|M? ";..5|
|00001e70| 30 31 20 58 24 3d 49 4e | 4b 45 59 24 3a 57 48 49 |01 X$=IN|KEY$:WHI|
|00001e80| 4c 45 20 58 24 3d 22 22 | 3a 58 24 3d 49 4e 4b 45 |LE X$=""|:X$=INKE|
|00001e90| 59 24 3a 57 45 4e 44 3a | 49 46 20 58 24 3d 22 59 |Y$:WEND:|IF X$="Y|
|00001ea0| 22 20 4f 52 20 58 24 3d | 22 79 22 20 54 48 45 4e |" OR X$=|"y" THEN|
|00001eb0| 20 43 4f 4c 4f 52 20 37 | 2c 30 2c 30 3a 43 4c 53 | COLOR 7|,0,0:CLS|
|00001ec0| 3a 45 4e 44 0d 0a 35 30 | 32 20 49 46 20 58 24 3d |:END..50|2 IF X$=|
|00001ed0| 22 4e 22 20 4f 52 20 58 | 24 3d 22 6e 22 20 54 48 |"N" OR X|$="n" TH|
|00001ee0| 45 4e 20 32 33 30 20 45 | 4c 53 45 20 35 30 31 0d |EN 230 E|LSE 501.|
|00001ef0| 0a 31 30 30 30 20 49 46 | 20 45 52 4c 3d 36 30 20 |.1000 IF| ERL=60 |
|00001f00| 4f 52 20 45 52 4c 3d 37 | 30 20 54 48 45 4e 20 52 |OR ERL=7|0 THEN R|
|00001f10| 45 53 55 4d 45 20 31 32 | 30 0d 0a 31 30 31 30 20 |ESUME 12|0..1010 |
|00001f20| 49 46 20 45 52 4c 3d 31 | 33 30 20 4f 52 20 45 52 |IF ERL=1|30 OR ER|
|00001f30| 4c 3d 31 34 30 20 4f 52 | 20 45 52 4c 3d 31 35 30 |L=140 OR| ERL=150|
|00001f40| 20 54 48 45 4e 20 52 45 | 53 55 4d 45 20 31 36 30 | THEN RE|SUME 160|
|00001f50| 0d 0a 1a 0a 32 30 32 30 | 20 41 3d 22 52 6d 23 20 |....2020| A="Rm# |
|00001f60| 74 6f 20 6c 69 6e 6b 3f | 22 3a 43 41 4c 4c 20 49 |to link?|":CALL I|
|00001f70| 4f 2e 49 3a 49 46 20 4e | 58 20 54 48 45 4e 20 35 |O.I:IF N|X THEN 5|
|00001f80| 31 30 20 44 45 46 53 54 | 52 20 41 2d 42 3a 44 45 |10 DEFST|R A-B:DE|
|00001f90| 46 49 4e 54 20 43 2d 5a | 3a 44 49 4d 20 54 53 28 |FINT C-Z|:DIM TS(|
|00001fa0| 31 32 29 3a 43 4f 4d 4d | 4f 4e 20 53 48 41 52 45 |12):COMM|ON SHARE|
|00001fb0| 44 20 2f 44 4e 44 42 42 | 53 2e 50 47 4d 2f 20 54 |D /DNDBB|S.PGM/ T|
|00001fc0| 32 21 2c 55 58 2c 4c 4d | 2c 43 58 21 2c 4c 52 2c |2!,UX,LM|,CX!,LR,|
|00001fd0| 52 4d 2c 41 2c 57 52 2c | 43 52 2c 41 4c 2c 46 47 |RM,A,WR,|CR,AL,FG|
|00001fe0| 2c 49 4e 2c 54 46 2c 59 | 45 2c 41 49 2c 4e 58 2c |,IN,TF,Y|E,AI,NX,|
|00001ff0| 43 41 2c 53 57 2c 50 41 | 31 24 2c 50 41 32 24 2c |CA,SW,PA|1$,PA2$,|
|00002000| 45 31 24 2c 5a 38 24 2c | 54 53 28 29 2c 58 31 0d |E1$,Z8$,|TS(),X1.|
|00002010| 0a 32 30 20 53 55 42 20 | 44 4e 44 20 53 54 41 54 |.20 SUB |DND STAT|
|00002020| 49 43 3a 5a 38 24 3d 22 | 22 3a 4f 4e 20 45 52 52 |IC:Z8$="|":ON ERR|
|00002030| 4f 52 20 47 4f 54 4f 20 | 37 35 39 30 0d 0a 33 30 |OR GOTO |7590..30|
|00002040| 20 44 49 4d 20 41 46 28 | 32 31 29 2c 41 47 28 32 | DIM AF(|21),AG(2|
|00002050| 31 29 2c 41 45 28 38 29 | 2c 41 4a 28 35 29 2c 41 |1),AE(8)|,AJ(5),A|
|00002060| 42 28 34 29 2c 41 32 28 | 36 29 2c 41 43 28 32 31 |B(4),A2(|6),AC(21|
|00002070| 29 2c 41 48 28 32 31 29 | 2c 5a 38 28 32 31 29 2c |),AH(21)|,Z8(21),|
|00002080| 5a 59 28 32 31 29 2c 5a | 58 28 32 31 29 2c 41 31 |ZY(21),Z|X(21),A1|
|00002090| 28 36 29 2c 46 34 28 36 | 29 2c 41 4b 28 37 29 2c |(6),F4(6|),AK(7),|
|000020a0| 41 51 28 37 29 2c 41 52 | 28 31 30 29 2c 52 44 28 |AQ(7),AR|(10),RD(|
|000020b0| 32 31 29 2c 43 43 28 32 | 31 29 2c 41 44 28 32 31 |21),CC(2|1),AD(21|
|000020c0| 29 2c 43 50 24 28 33 39 | 29 2c 43 53 24 28 34 31 |),CP$(39|),CS$(41|
|000020d0| 29 2c 54 58 28 32 31 29 | 2c 54 5a 28 32 31 29 2c |),TX(21)|,TZ(21),|
|000020e0| 43 5a 28 32 31 2c 35 29 | 2c 43 57 24 28 32 31 2c |CZ(21,5)|,CW$(21,|
|000020f0| 35 29 2c 43 59 28 32 31 | 29 2c 43 56 28 32 31 29 |5),CY(21|),CV(21)|
|00002100| 2c 41 35 28 32 33 29 0d | 0a 34 30 20 52 45 53 54 |,A5(23).|.40 REST|
|00002110| 4f 52 45 20 34 35 3a 46 | 4f 52 20 4c 50 3d 31 20 |ORE 45:F|OR LP=1 |
|00002120| 54 4f 20 33 39 3a 52 45 | 41 44 20 43 50 24 28 4c |TO 39:RE|AD CP$(L|
|00002130| 50 29 3a 4e 45 58 54 3a | 46 4f 52 20 4c 50 3d 31 |P):NEXT:|FOR LP=1|
|00002140| 20 54 4f 20 34 31 3a 52 | 45 41 44 20 43 53 24 28 | TO 41:R|EAD CS$(|
|00002150| 4c 50 29 3a 4e 45 58 54 | 3a 46 4f 52 20 4c 50 3d |LP):NEXT|:FOR LP=|
|00002160| 31 20 54 4f 20 37 3a 52 | 45 41 44 20 41 51 28 4c |1 TO 7:R|EAD AQ(L|
|00002170| 50 29 3a 4e 45 58 54 3a | 46 4f 52 20 4c 50 3d 31 |P):NEXT:|FOR LP=1|
|00002180| 20 54 4f 20 36 3a 52 45 | 41 44 20 41 31 28 4c 50 | TO 6:RE|AD A1(LP|
|00002190| 29 3a 4e 45 58 54 3a 46 | 4f 52 20 4c 50 3d 31 20 |):NEXT:F|OR LP=1 |
|000021a0| 54 4f 20 37 3a 52 45 41 | 44 20 41 4b 28 4c 50 29 |TO 7:REA|D AK(LP)|
|000021b0| 3a 4e 45 58 54 3a 46 4f | 52 20 4c 50 3d 31 20 54 |:NEXT:FO|R LP=1 T|
|000021c0| 4f 20 31 30 3a 52 45 41 | 44 20 41 52 28 4c 50 29 |O 10:REA|D AR(LP)|
|000021d0| 3a 4e 45 58 54 3a 47 4f | 53 55 42 20 37 34 30 30 |:NEXT:GO|SUB 7400|
|000021e0| 0d 0a 34 35 20 44 41 54 | 41 20 4b 49 4c 4c 2c 41 |..45 DAT|A KILL,A|
|000021f0| 54 54 41 43 4b 2c 4c 4f | 4f 4b 2c 52 55 4e 2c 50 |TTACK,LO|OK,RUN,P|
|00002200| 41 4e 49 43 2c 53 45 41 | 52 43 48 2c 53 41 56 45 |ANIC,SEA|RCH,SAVE|
|00002210| 2c 49 4e 46 4f 52 4d 41 | 54 49 4f 4e 2c 49 4e 56 |,INFORMA|TION,INV|
|00002220| 45 4e 54 4f 52 59 2c 53 | 55 49 43 49 44 45 2c 54 |ENTORY,S|UICIDE,T|
|00002230| 52 41 49 4e 2c 48 45 41 | 4c 54 48 2c 41 50 50 45 |RAIN,HEA|LTH,APPE|
|00002240| 41 4c 2c 42 59 45 2c 53 | 54 4f 50 2c 51 55 49 54 |AL,BYE,S|TOP,QUIT|
|00002250| 2c 45 58 50 45 52 49 45 | 4e 43 45 2c 48 45 4c 50 |,EXPERIE|NCE,HELP|
|00002260| 2c 48 49 44 45 2c 43 41 | 53 54 2c 4c 49 53 54 2c |,HIDE,CA|ST,LIST,|
|00002270| 42 52 49 45 46 2c 42 41 | 4e 4b 2c 54 49 4d 45 2c |BRIEF,BA|NK,TIME,|
|00002280| 2a 45 44 49 54 2c 2a 49 | 4e 56 2c 2a 53 54 41 54 |*EDIT,*I|NV,*STAT|
|00002290| 55 53 2c 2a 43 41 4c 4c | 2c 2a 53 48 45 4c 4c 2c |US,*CALL|,*SHELL,|
|000022a0| 2a 4c 49 4e 4b 2c 45 41 | 54 2c 50 52 41 59 2c 54 |*LINK,EA|T,PRAY,T|
|000022b0| 4f 50 2c 43 41 53 49 4e | 4f 2c 4c 49 4e 45 46 45 |OP,CASIN|O,LINEFE|
|000022c0| 45 44 53 2c 50 41 53 53 | 57 4f 52 44 2c 4d 41 49 |EDS,PASS|WORD,MAI|
|000022d0| 4c 2c 55 53 45 52 53 2c | 43 48 41 54 0d 0a 35 30 |L,USERS,|CHAT..50|
|000022e0| 20 44 41 54 41 20 4b 49 | 4c 4c 2c 41 54 54 41 43 | DATA KI|LL,ATTAC|
|000022f0| 4b 2c 47 4f 2c 55 53 45 | 2c 52 45 41 44 2c 45 58 |K,GO,USE|,READ,EX|
|00002300| 41 4d 49 4e 45 2c 4c 4f | 4f 4b 2c 45 4e 54 45 52 |AMINE,LO|OK,ENTER|
|00002310| 2c 47 45 54 2c 54 41 4b | 45 2c 44 52 4f 50 2c 50 |,GET,TAK|E,DROP,P|
|00002320| 55 54 2c 53 45 4c 4c 2c | 42 52 45 41 4b 2c 53 4d |UT,SELL,|BREAK,SM|
|00002330| 41 53 48 2c 43 4c 4f 53 | 45 2c 4f 50 45 4e 2c 44 |ASH,CLOS|E,OPEN,D|
|00002340| 52 41 57 2c 57 49 45 4c | 44 2c 57 45 41 52 2c 52 |RAW,WIEL|D,WEAR,R|
|00002350| 45 54 55 52 4e 2c 43 41 | 53 54 2c 42 55 59 2c 4c |ETURN,CA|ST,BUY,L|
|00002360| 4f 43 4b 2c 55 4e 4c 4f | 43 4b 2c 50 49 43 4b 4c |OCK,UNLO|CK,PICKL|
|00002370| 4f 43 4b 2c 46 49 58 2c | 52 45 50 41 49 52 2c 43 |OCK,FIX,|REPAIR,C|
|00002380| 48 41 52 47 45 2c 48 45 | 4c 50 2c 44 52 49 4e 4b |HARGE,HE|LP,DRINK|
|00002390| 2c 2a 54 45 4c 45 50 4f | 52 54 2c 2a 4e 4d 2c 2a |,*TELEPO|RT,*NM,*|
|000023a0| 44 49 53 43 41 52 44 2c | 2a 44 52 4f 50 2c 2a 4b |DISCARD,|*DROP,*K|
|000023b0| 49 4c 4c 2c 2a 43 41 4c | 4c 2c 2a 45 44 49 54 2c |ILL,*CAL|L,*EDIT,|
|000023c0| 45 41 54 2c 4d 4f 56 45 | 2c 54 41 4c 4b 0d 0a 36 |EAT,MOVE|,TALK..6|
|000023d0| 30 20 44 41 54 41 20 46 | 69 67 68 74 65 72 2c 4d |0 DATA F|ighter,M|
|000023e0| 61 67 69 63 20 55 73 65 | 72 2c 54 68 69 65 66 2c |agic Use|r,Thief,|
|000023f0| 43 6c 65 72 69 63 2c 50 | 61 6c 61 64 69 6e 2c 52 |Cleric,P|aladin,R|
|00002400| 61 6e 67 65 72 2c 44 75 | 6e 67 65 6f 6e 20 4d 61 |anger,Du|ngeon Ma|
|00002410| 73 74 65 72 2c 53 74 72 | 65 6e 67 74 68 2c 49 6e |ster,Str|ength,In|
|00002420| 74 65 6c 6c 69 67 65 6e | 63 65 2c 57 69 73 64 6f |telligen|ce,Wisdo|
|00002430| 6d 2c 44 65 78 74 65 72 | 69 74 79 2c 43 6f 6e 73 |m,Dexter|ity,Cons|
|00002440| 74 69 74 75 74 69 6f 6e | 2c 50 69 65 74 79 2c 6e |titution|,Piety,n|
|00002450| 6f 72 74 68 2c 65 61 73 | 74 2c 73 6f 75 74 68 2c |orth,eas|t,south,|
|00002460| 77 65 73 74 2c 6f 75 74 | 2c 75 70 2c 64 6f 77 6e |west,out|,up,down|
|00002470| 2c 6f 6e 65 2c 74 77 6f | 2c 74 68 72 65 65 2c 66 |,one,two|,three,f|
|00002480| 6f 75 72 2c 66 69 76 65 | 2c 73 69 78 2c 73 65 76 |our,five|,six,sev|
|00002490| 65 6e 2c 65 69 67 68 74 | 2c 6e 69 6e 65 2c 74 65 |en,eight|,nine,te|
|000024a0| 6e 0d 0a 37 30 20 46 47 | 3d 37 39 3a 48 52 54 3d |n..70 FG|=79:HRT=|
|000024b0| 35 3a 45 52 54 3d 31 30 | 3a 52 4d 3d 30 3a 47 4f |5:ERT=10|:RM=0:GO|
|000024c0| 53 55 42 20 36 37 35 30 | 3a 49 46 20 43 32 20 54 |SUB 6750|:IF C2 T|
|000024d0| 48 45 4e 20 31 37 30 0d | 0a 38 30 20 41 3d 22 50 |HEN 170.|.80 A="P|
|000024e0| 72 65 73 73 20 5b 45 4e | 54 45 52 5d 20 74 6f 20 |ress [EN|TER] to |
|000024f0| 72 6f 6c 6c 20 79 6f 75 | 72 20 63 68 61 72 61 63 |roll you|r charac|
|00002500| 74 65 72 3a 22 3a 43 41 | 4c 4c 20 49 4f 2e 49 3a |ter:":CA|LL IO.I:|
|00002510| 43 41 4c 4c 20 49 4f 2e | 4f 3a 41 3d 22 53 65 6c |CALL IO.|O:A="Sel|
|00002520| 65 63 74 20 79 6f 75 72 | 20 63 68 61 72 61 63 74 |ect your| charact|
|00002530| 65 72 20 63 6c 61 73 73 | 3a 22 3a 43 41 4c 4c 20 |er class|:":CALL |
|00002540| 49 4f 2e 4f 3a 58 58 3d | 36 3a 49 46 20 4c 4d 20 |IO.O:XX=|6:IF LM |
|00002550| 54 48 45 4e 20 58 58 3d | 37 0d 0a 39 30 20 46 4f |THEN XX=|7..90 FO|
|00002560| 52 20 4c 3d 31 20 54 4f | 20 58 58 3a 41 3d 4d 49 |R L=1 TO| XX:A=MI|
|00002570| 44 24 28 53 54 52 24 28 | 4c 29 2c 32 29 2b 22 3e |D$(STR$(|L),2)+">|
|00002580| 20 22 2b 41 51 28 4c 29 | 3a 43 41 4c 4c 20 49 4f | "+AQ(L)|:CALL IO|
|00002590| 2e 4f 3a 4e 45 58 54 3a | 46 47 3d 31 3a 41 3d 22 |.O:NEXT:|FG=1:A="|
|000025a0| 3f 22 3a 43 41 4c 4c 20 | 49 4f 2e 49 3a 43 32 3d |?":CALL |IO.I:C2=|
|000025b0| 56 41 4c 28 41 4c 29 3a | 49 46 20 43 32 3c 31 20 |VAL(AL):|IF C2<1 |
|000025c0| 4f 52 20 43 32 3e 58 58 | 20 54 48 45 4e 20 38 30 |OR C2>XX| THEN 80|
|000025d0| 0d 0a 31 30 30 20 41 4d | 3d 41 51 28 43 32 29 3a |..100 AM|=AQ(C2):|
|000025e0| 41 3d 22 45 6e 74 65 72 | 20 43 68 61 72 61 63 74 |A="Enter| Charact|
|000025f0| 65 72 20 53 74 61 74 69 | 73 74 69 63 73 2c 20 52 |er Stati|stics, R|
|00002600| 61 6e 67 65 20 66 72 6f | 6d 20 38 20 74 6f 20 31 |ange fro|m 8 to 1|
|00002610| 38 2c 20 41 76 65 72 61 | 67 65 20 6c 65 73 73 20 |8, Avera|ge less |
|00002620| 74 68 61 6e 20 31 33 22 | 3a 43 41 4c 4c 20 49 4f |than 13"|:CALL IO|
|00002630| 2e 4f 0d 0a 31 31 30 20 | 46 33 21 3d 30 3a 46 4f |.O..110 |F3!=0:FO|
|00002640| 52 20 4c 50 3d 31 20 54 | 4f 20 36 3a 41 3d 41 31 |R LP=1 T|O 6:A=A1|
|00002650| 28 4c 50 29 2b 22 3e 22 | 3a 43 41 4c 4c 20 49 4f |(LP)+">"|:CALL IO|
|00002660| 2e 49 3a 4e 56 3d 56 41 | 4c 28 41 4c 29 3a 49 46 |.I:NV=VA|L(AL):IF|
|00002670| 20 4e 56 3c 38 20 4f 52 | 20 4e 56 3e 31 38 20 54 | NV<8 OR| NV>18 T|
|00002680| 48 45 4e 20 41 3d 22 49 | 6e 76 61 6c 69 64 20 65 |HEN A="I|nvalid e|
|00002690| 6e 74 72 79 20 2d 2d 20 | 6f 6e 6c 79 20 6e 75 6d |ntry -- |only num|
|000026a0| 62 65 72 73 20 66 72 6f | 6d 20 38 20 74 6f 20 31 |bers fro|m 8 to 1|
|000026b0| 38 22 3a 43 41 4c 4c 20 | 49 4f 2e 4f 3a 47 4f 54 |8":CALL |IO.O:GOT|
|000026c0| 4f 20 31 30 30 0d 0a 31 | 32 30 20 46 33 21 3d 46 |O 100..1|20 F3!=F|
|000026d0| 33 21 2b 4e 56 3a 46 34 | 28 4c 50 29 3d 4e 56 3a |3!+NV:F4|(LP)=NV:|
|000026e0| 4e 45 58 54 3a 46 33 21 | 3d 46 33 21 2f 36 3a 49 |NEXT:F3!|=F3!/6:I|
|000026f0| 46 20 46 33 21 3e 31 32 | 20 54 48 45 4e 20 41 3d |F F3!>12| THEN A=|
|00002700| 22 41 76 65 72 61 67 65 | 22 2b 53 54 52 24 28 46 |"Average|"+STR$(F|
|00002710| 33 21 29 2b 22 2c 20 74 | 6f 6f 20 68 69 67 68 2c |3!)+", t|oo high,|
|00002720| 20 74 72 79 20 61 67 61 | 69 6e 2e 2e 22 3a 43 41 | try aga|in..":CA|
|00002730| 4c 4c 20 49 4f 2e 4f 3a | 47 4f 54 4f 20 31 30 30 |LL IO.O:|GOTO 100|
|00002740| 0d 0a 31 33 30 20 41 3d | 22 59 6f 75 72 20 61 76 |..130 A=|"Your av|
|00002750| 65 72 61 67 65 20 69 73 | 22 2b 53 54 52 24 28 46 |erage is|"+STR$(F|
|00002760| 33 21 29 2b 22 2c 20 63 | 68 61 6e 67 65 20 61 6e |3!)+", c|hange an|
|00002770| 79 74 68 69 6e 67 3f 20 | 22 3a 46 47 3d 31 3a 43 |ything? |":FG=1:C|
|00002780| 41 4c 4c 20 49 4f 2e 49 | 3a 49 46 20 59 45 20 54 |ALL IO.I|:IF YE T|
|00002790| 48 45 4e 20 31 30 30 0d | 0a 31 34 30 20 43 41 4c |HEN 100.|.140 CAL|
|000027a0| 4c 20 49 4f 2e 4f 3a 47 | 4f 53 55 42 20 34 35 34 |L IO.O:G|OSUB 454|
|000027b0| 30 3a 46 31 3d 46 32 3a | 56 31 3d 56 32 3a 4d 59 |0:F1=F2:|V1=V2:MY|
|000027c0| 3d 4d 32 0d 0a 31 35 30 | 20 41 3d 22 4c 65 76 65 |=M2..150| A="Leve|
|000027d0| 6c 3a 22 2b 53 54 52 24 | 28 4c 46 29 3a 43 41 4c |l:"+STR$|(LF):CAL|
|000027e0| 4c 20 49 4f 2e 4f 3a 41 | 3d 22 47 6f 6c 64 3a 20 |L IO.O:A|="Gold: |
|000027f0| 22 2b 53 54 52 24 28 47 | 47 23 29 3a 43 41 4c 4c |"+STR$(G|G#):CALL|
|00002800| 20 49 4f 2e 4f 3a 41 3d | 22 52 6f 6f 6d 3a 20 22 | IO.O:A=|"Room: "|
|00002810| 2b 53 54 52 24 28 52 4d | 29 3a 43 41 4c 4c 20 49 |+STR$(RM|):CALL I|
|00002820| 4f 2e 4f 3a 41 3d 22 45 | 78 70 3a 20 20 22 2b 53 |O.O:A="E|xp:  "+S|
|00002830| 54 52 24 28 58 50 23 29 | 3a 43 41 4c 4c 20 49 4f |TR$(XP#)|:CALL IO|
|00002840| 2e 4f 3a 41 3d 22 46 61 | 74 3a 20 20 22 2b 53 54 |.O:A="Fa|t:  "+ST|
|00002850| 52 24 28 46 31 29 3a 43 | 41 4c 4c 20 49 4f 2e 4f |R$(F1):C|ALL IO.O|
|00002860| 3a 41 3d 22 56 69 74 3a | 20 20 22 2b 53 54 52 24 |:A="Vit:|  "+STR$|
|00002870| 28 56 31 29 3a 43 41 4c | 4c 20 49 4f 2e 4f 3a 41 |(V1):CAL|L IO.O:A|
|00002880| 3d 22 4d 61 67 3a 20 20 | 22 2b 53 54 52 24 28 4d |="Mag:  |"+STR$(M|
|00002890| 59 29 3a 43 41 4c 4c 20 | 49 4f 2e 4f 0d 0a 31 36 |Y):CALL |IO.O..16|
|000028a0| 30 20 47 4f 53 55 42 20 | 31 38 31 30 3a 50 55 54 |0 GOSUB |1810:PUT|
|000028b0| 20 33 2c 55 58 0d 0a 31 | 37 30 20 47 4f 53 55 42 | 3,UX..1|70 GOSUB|
|000028c0| 20 36 35 36 30 3a 53 47 | 3d 31 3a 57 54 3d 30 3a | 6560:SG|=1:WT=0:|
|000028d0| 46 4f 52 20 4c 59 3d 31 | 20 54 4f 20 32 30 3a 49 |FOR LY=1| TO 20:I|
|000028e0| 46 20 54 58 28 4c 59 29 | 3c 30 20 54 48 45 4e 20 |F TX(LY)|<0 THEN |
|000028f0| 47 45 54 20 38 2c 41 42 | 53 28 54 58 28 4c 59 29 |GET 8,AB|S(TX(LY)|
|00002900| 29 3a 57 54 3d 57 54 2b | 56 41 4c 28 57 36 24 29 |):WT=WT+|VAL(W6$)|
|00002910| 20 45 4c 53 45 20 49 46 | 20 54 58 28 4c 59 29 3d | ELSE IF| TX(LY)=|
|00002920| 30 20 54 48 45 4e 20 54 | 52 3d 4c 59 2d 31 3a 47 |0 THEN T|R=LY-1:G|
|00002930| 4f 54 4f 20 31 39 30 0d | 0a 31 38 30 20 4e 45 58 |OTO 190.|.180 NEX|
|00002940| 54 20 4c 59 3a 54 52 3d | 32 30 0d 0a 31 39 30 20 |T LY:TR=|20..190 |
|00002950| 57 31 3d 30 3a 57 32 3d | 30 3a 57 33 3d 30 3a 57 |W1=0:W2=|0:W3=0:W|
|00002960| 34 3d 30 3a 57 35 3d 30 | 3a 57 36 3d 30 3a 46 4f |4=0:W5=0|:W6=0:FO|
|00002970| 52 20 4c 50 3d 31 20 54 | 4f 20 32 30 3a 43 43 28 |R LP=1 T|O 20:CC(|
|00002980| 4c 50 29 3d 30 3a 41 44 | 28 4c 50 29 3d 22 22 3a |LP)=0:AD|(LP)="":|
|00002990| 46 4f 52 20 4c 4e 3d 31 | 20 54 4f 20 35 3a 43 5a |FOR LN=1| TO 5:CZ|
|000029a0| 28 4c 50 2c 4c 4e 29 3d | 30 3a 4e 45 58 54 3a 4e |(LP,LN)=|0:NEXT:N|
|000029b0| 45 58 54 3a 4e 4d 3d 30 | 0d 0a 32 30 30 20 43 41 |EXT:NM=0|..200 CA|
|000029c0| 4c 4c 20 49 4f 2e 4f 3a | 41 3d 22 50 72 65 73 73 |LL IO.O:|A="Press|
|000029d0| 20 5b 45 4e 54 45 52 5d | 20 74 6f 20 62 65 67 69 | [ENTER]| to begi|
|000029e0| 6e 20 74 68 65 20 41 64 | 76 65 6e 74 75 72 65 2e |n the Ad|venture.|
|000029f0| 2e 2e 22 3a 43 41 4c 4c | 20 49 4f 2e 49 3a 43 52 |..":CALL| IO.I:CR|
|00002a00| 3d 31 3a 43 41 4c 4c 20 | 49 4f 2e 4f 3a 47 4f 53 |=1:CALL |IO.O:GOS|
|00002a10| 55 42 20 36 35 34 30 0d | 0a 32 31 30 20 49 46 20 |UB 6540.|.210 IF |
|00002a20| 52 4d 3e 30 20 41 4e 44 | 20 52 4d 3c 3d 4c 4f 46 |RM>0 AND| RM<=LOF|
|00002a30| 28 35 29 2f 34 37 30 20 | 54 48 45 4e 20 47 45 54 |(5)/470 |THEN GET|
|00002a40| 20 35 2c 52 4d 3a 47 4f | 54 4f 20 32 35 30 0d 0a | 5,RM:GO|TO 250..|
|00002a50| 32 32 30 20 49 46 20 52 | 4d 3e 4c 4f 46 28 35 29 |220 IF R|M>LOF(5)|
|00002a60| 2f 34 37 30 20 41 4e 44 | 20 43 32 3d 37 20 54 48 |/470 AND| C2=7 TH|
|00002a70| 45 4e 20 47 4f 53 55 42 | 20 36 38 33 30 3a 47 4f |EN GOSUB| 6830:GO|
|00002a80| 53 55 42 20 36 35 36 30 | 3a 49 46 20 44 49 20 54 |SUB 6560|:IF DI T|
|00002a90| 48 45 4e 20 32 31 30 0d | 0a 32 33 30 20 49 46 20 |HEN 210.|.230 IF |
|00002aa0| 4c 4f 46 28 35 29 2f 34 | 37 30 3d 3e 54 53 28 39 |LOF(5)/4|70=>TS(9|
|00002ab0| 29 54 48 45 4e 20 41 3d | 22 4e 6f 6e 2d 64 65 73 |)THEN A=|"Non-des|
|00002ac0| 63 72 69 70 3a 52 4d 23 | 22 2b 53 54 52 24 28 52 |crip:RM#|"+STR$(R|
|00002ad0| 4d 29 3a 43 41 4c 4c 20 | 49 4f 2e 4f 3a 52 4d 3d |M):CALL |IO.O:RM=|
|00002ae0| 54 53 28 39 29 3a 47 4f | 53 55 42 20 36 35 36 30 |TS(9):GO|SUB 6560|
|00002af0| 3a 47 4f 54 4f 20 32 31 | 30 0d 0a 32 34 30 20 41 |:GOTO 21|0..240 A|
|00002b00| 3d 22 4e 6f 6e 64 65 73 | 63 72 69 70 20 72 6f 6f |="Nondes|crip roo|
|00002b10| 6d 20 66 69 6c 65 22 3a | 43 41 4c 4c 20 49 4f 2e |m file":|CALL IO.|
|00002b20| 4f 3a 45 58 49 54 20 53 | 55 42 0d 0a 32 35 30 20 |O:EXIT S|UB..250 |
|00002b30| 49 46 20 49 39 20 4f 52 | 20 41 42 28 31 29 3d 53 |IF I9 OR| AB(1)=S|
|00002b40| 54 52 49 4e 47 24 28 38 | 30 2c 33 32 29 54 48 45 |TRING$(8|0,32)THE|
|00002b50| 4e 20 41 3d 41 50 3a 49 | 46 20 4c 4d 20 4f 52 20 |N A=AP:I|F LM OR |
|00002b60| 43 32 3d 37 20 54 48 45 | 4e 20 41 49 3d 41 3a 47 |C2=7 THE|N AI=A:G|
|00002b70| 4f 53 55 42 20 36 37 38 | 30 3a 41 3d 41 49 2b 22 |OSUB 678|0:A=AI+"|
|00002b80| 20 7c 4d 6f 6e 63 6c 61 | 73 73 22 2b 53 54 52 24 | |Moncla|ss"+STR$|
|00002b90| 28 43 56 49 28 41 36 29 | 29 2b 22 7c 52 6d 22 2b |(CVI(A6)|)+"|Rm"+|
|00002ba0| 53 54 52 24 28 52 4d 29 | 3a 43 41 4c 4c 20 49 4f |STR$(RM)|:CALL IO|
|00002bb0| 2e 4f 3a 47 4f 54 4f 20 | 32 38 30 20 45 4c 53 45 |.O:GOTO |280 ELSE|
|00002bc0| 20 43 41 4c 4c 20 49 4f | 2e 4f 3a 47 4f 54 4f 20 | CALL IO|.O:GOTO |
|00002bd0| 32 38 30 0d 0a 32 36 30 | 20 46 4f 52 20 4c 50 3d |280..260| FOR LP=|
|00002be0| 31 20 54 4f 20 34 3a 49 | 46 20 41 42 28 4c 50 29 |1 TO 4:I|F AB(LP)|
|00002bf0| 3d 53 54 52 49 4e 47 24 | 28 38 30 2c 33 32 29 54 |=STRING$|(80,32)T|
|00002c00| 48 45 4e 20 32 38 30 0d | 0a 32 37 30 20 41 3d 41 |HEN 280.|.270 A=A|
|00002c10| 42 28 4c 50 29 3a 43 41 | 4c 4c 20 49 4f 2e 4f 3a |B(LP):CA|LL IO.O:|
|00002c20| 4e 45 58 54 0d 0a 32 38 | 30 20 44 39 3d 30 3a 49 |NEXT..28|0 D9=0:I|
|00002c30| 46 20 49 39 20 54 48 45 | 4e 20 41 3d 22 22 20 45 |F I9 THE|N A="" E|
|00002c40| 4c 53 45 20 41 3d 22 54 | 68 65 20 65 78 69 74 73 |LSE A="T|he exits|
|00002c50| 20 61 72 65 20 22 0d 0a | 32 39 30 20 46 4f 52 20 | are "..|290 FOR |
|00002c60| 4c 3d 31 20 54 4f 20 37 | 3a 49 46 20 43 56 49 28 |L=1 TO 7|:IF CVI(|
|00002c70| 41 45 28 4c 29 29 54 48 | 45 4e 20 44 39 3d 31 3a |AE(L))TH|EN D9=1:|
|00002c80| 41 3d 41 2b 41 4b 28 4c | 29 2b 22 20 22 0d 0a 33 |A=A+AK(L|)+" "..3|
|00002c90| 30 30 20 4e 45 58 54 3a | 49 46 20 44 39 20 54 48 |00 NEXT:|IF D9 TH|
|00002ca0| 45 4e 20 43 41 4c 4c 20 | 49 4f 2e 4f 0d 0a 33 31 |EN CALL |IO.O..31|
|00002cb0| 30 20 49 46 20 49 39 3d | 30 20 54 48 45 4e 20 41 |0 IF I9=|0 THEN A|
|00002cc0| 3d 22 59 6f 75 20 73 65 | 65 20 22 3a 43 52 3d 31 |="You se|e ":CR=1|
|00002cd0| 3a 43 41 4c 4c 20 49 4f | 2e 4f 0d 0a 33 32 30 20 |:CALL IO|.O..320 |
|00002ce0| 41 3d 22 22 3a 53 46 3d | 30 3a 43 54 3d 30 3a 46 |A="":SF=|0:CT=0:F|
|00002cf0| 4f 52 20 4c 3d 31 20 54 | 4f 20 31 30 3a 49 46 20 |OR L=1 T|O 10:IF |
|00002d00| 41 44 28 4c 29 3d 22 22 | 54 48 45 4e 20 33 36 30 |AD(L)=""|THEN 360|
|00002d10| 0d 0a 33 33 30 20 43 54 | 3d 43 54 2b 31 3a 43 52 |..330 CT|=CT+1:CR|
|00002d20| 3d 31 3a 43 41 4c 4c 20 | 49 4f 2e 4f 3a 49 46 20 |=1:CALL |IO.O:IF |
|00002d30| 43 54 3d 31 20 41 4e 44 | 20 49 39 20 54 48 45 4e |CT=1 AND| I9 THEN|
|00002d40| 20 41 3d 22 59 6f 75 20 | 73 65 65 20 22 3a 43 52 | A="You |see ":CR|
|00002d50| 3d 31 3a 43 41 4c 4c 20 | 49 4f 2e 4f 0d 0a 33 34 |=1:CALL |IO.O..34|
|00002d60| 30 20 49 46 20 49 4e 53 | 54 52 28 22 61 65 69 6f |0 IF INS|TR("aeio|
|00002d70| 75 22 2c 4c 45 46 54 24 | 28 41 44 28 4c 29 2c 31 |u",LEFT$|(AD(L),1|
|00002d80| 29 29 54 48 45 4e 20 41 | 3d 41 2b 22 61 6e 20 22 |))THEN A|=A+"an "|
|00002d90| 20 45 4c 53 45 20 41 3d | 41 2b 22 61 20 22 0d 0a | ELSE A=|A+"a "..|
|00002da0| 33 35 30 20 41 3d 41 2b | 41 44 28 4c 29 2b 22 2c |350 A=A+|AD(L)+",|
|00002db0| 20 22 3a 53 46 3d 31 0d | 0a 33 36 30 20 4e 45 58 | ":SF=1.|.360 NEX|
|00002dc0| 54 3a 46 4f 52 20 4c 3d | 31 20 54 4f 20 32 30 3a |T:FOR L=|1 TO 20:|
|00002dd0| 49 46 20 43 56 49 28 41 | 46 28 4c 29 29 3d 30 20 |IF CVI(A|F(L))=0 |
|00002de0| 54 48 45 4e 20 35 30 30 | 0d 0a 33 37 30 20 49 46 |THEN 500|..370 IF|
|00002df0| 20 43 56 49 28 41 46 28 | 4c 29 29 3e 30 20 54 48 | CVI(AF(|L))>0 TH|
|00002e00| 45 4e 20 34 32 30 0d 0a | 33 38 30 20 43 52 3d 31 |EN 420..|380 CR=1|
|00002e10| 3a 43 41 4c 4c 20 49 4f | 2e 4f 3a 47 45 54 20 38 |:CALL IO|.O:GET 8|
|00002e20| 2c 41 42 53 28 43 56 49 | 28 41 46 28 4c 29 29 29 |,ABS(CVI|(AF(L)))|
|00002e30| 3a 43 54 3d 43 54 2b 31 | 3a 49 46 20 43 54 3d 31 |:CT=CT+1|:IF CT=1|
|00002e40| 20 41 4e 44 20 49 39 20 | 54 48 45 4e 20 41 3d 22 | AND I9 |THEN A="|
|00002e50| 59 6f 75 20 73 65 65 20 | 22 3a 43 52 3d 31 3a 43 |You see |":CR=1:C|
|00002e60| 41 4c 4c 20 49 4f 2e 4f | 0d 0a 33 39 30 20 41 49 |ALL IO.O|..390 AI|
|00002e70| 3d 41 33 3a 47 4f 53 55 | 42 20 36 37 38 30 3a 41 |=A3:GOSU|B 6780:A|
|00002e80| 3d 41 49 3a 49 46 20 56 | 41 4c 28 5a 57 24 29 3d |=AI:IF V|AL(ZW$)=|
|00002e90| 32 20 54 48 45 4e 20 41 | 3d 41 2b 22 20 5b 6c 6f |2 THEN A|=A+" [lo|
|00002ea0| 63 6b 65 64 5d 22 0d 0a | 34 30 30 20 49 46 20 56 |cked]"..|400 IF V|
|00002eb0| 41 4c 28 5a 57 24 29 3d | 31 20 54 48 45 4e 20 49 |AL(ZW$)=|1 THEN I|
|00002ec0| 46 20 5a 51 24 3d 22 54 | 22 20 54 48 45 4e 20 41 |F ZQ$="T|" THEN A|
|00002ed0| 3d 41 2b 22 20 5b 63 6c | 6f 73 65 64 5d 22 0d 0a |=A+" [cl|osed]"..|
|00002ee0| 34 31 30 20 41 3d 41 2b | 22 2c 20 22 3a 53 46 3d |410 A=A+|", ":SF=|
|00002ef0| 31 3a 47 4f 54 4f 20 35 | 30 30 0d 0a 34 32 30 20 |1:GOTO 5|00..420 |
|00002f00| 47 45 54 20 36 2c 43 56 | 49 28 41 46 28 4c 29 29 |GET 6,CV|I(AF(L))|
|00002f10| 3a 49 46 28 41 58 3d 22 | 54 22 4f 52 20 42 49 3d |:IF(AX="|T"OR BI=|
|00002f20| 22 54 22 29 41 4e 44 20 | 43 32 3c 3e 37 20 54 48 |"T")AND |C2<>7 TH|
|00002f30| 45 4e 20 35 30 30 0d 0a | 34 33 30 20 43 52 3d 31 |EN 500..|430 CR=1|
|00002f40| 3a 43 41 4c 4c 20 49 4f | 2e 4f 3a 41 49 3d 41 4a |:CALL IO|.O:AI=AJ|
|00002f50| 3a 47 4f 53 55 42 20 36 | 37 38 30 3a 43 54 3d 43 |:GOSUB 6|780:CT=C|
|00002f60| 54 2b 31 3a 49 46 20 43 | 54 3d 31 20 41 4e 44 20 |T+1:IF C|T=1 AND |
|00002f70| 49 39 20 54 48 45 4e 20 | 41 3d 22 59 6f 75 20 73 |I9 THEN |A="You s|
|00002f80| 65 65 20 22 3a 43 52 3d | 31 3a 43 41 4c 4c 20 49 |ee ":CR=|1:CALL I|
|00002f90| 4f 2e 4f 0d 0a 34 34 30 | 20 41 3d 41 49 3a 49 46 |O.O..440| A=AI:IF|
|00002fa0| 20 4c 45 46 54 24 28 53 | 39 24 2c 34 29 3d 22 44 | LEFT$(S|9$,4)="D|
|00002fb0| 4f 4f 52 22 54 48 45 4e | 20 41 49 3d 44 5a 24 3a |OOR"THEN| AI=DZ$:|
|00002fc0| 47 4f 53 55 42 20 36 37 | 38 30 3a 41 3d 41 2b 22 |GOSUB 67|80:A=A+"|
|00002fd0| 20 6f 6e 20 74 68 65 20 | 22 2b 41 49 2b 22 20 77 | on the |"+AI+" w|
|00002fe0| 61 6c 6c 22 0d 0a 34 35 | 30 20 49 46 20 56 41 4c |all"..45|0 IF VAL|
|00002ff0| 28 41 59 29 3e 31 20 54 | 48 45 4e 20 41 3d 41 2b |(AY)>1 T|HEN A=A+|
|00003000| 22 20 5b 6c 6f 63 6b 65 | 64 5d 22 0d 0a 34 36 30 |" [locke|d]"..460|
|00003010| 20 49 46 20 56 41 4c 28 | 41 59 29 3d 31 20 54 48 | IF VAL(|AY)=1 TH|
|00003020| 45 4e 20 49 46 20 41 5a | 3d 22 54 22 54 48 45 4e |EN IF AZ|="T"THEN|
|00003030| 20 41 3d 41 2b 22 20 5b | 63 6c 6f 73 65 64 5d 22 | A=A+" [|closed]"|
|00003040| 0d 0a 34 37 30 20 49 46 | 20 41 58 3d 22 54 22 54 |..470 IF| AX="T"T|
|00003050| 48 45 4e 20 41 3d 41 2b | 22 20 5b 69 6e 76 5d 22 |HEN A=A+|" [inv]"|
|00003060| 0d 0a 34 38 30 20 49 46 | 20 42 49 3d 22 54 22 54 |..480 IF| BI="T"T|
|00003070| 48 45 4e 20 41 3d 41 2b | 22 20 5b 68 69 64 64 65 |HEN A=A+|" [hidde|
|00003080| 6e 5d 22 0d 0a 34 39 30 | 20 41 3d 41 2b 22 2c 20 |n]"..490| A=A+", |
|00003090| 22 3a 53 46 3d 31 0d 0a | 35 30 30 20 4e 45 58 54 |":SF=1..|500 NEXT|
|000030a0| 20 4c 3a 49 46 20 53 46 | 3d 30 20 54 48 45 4e 20 | L:IF SF|=0 THEN |
|000030b0| 49 46 20 49 39 3d 30 20 | 54 48 45 4e 20 41 3d 22 |IF I9=0 |THEN A="|
|000030c0| 6e 6f 74 68 69 6e 67 20 | 73 70 65 63 69 61 6c 2e |nothing |special.|
|000030d0| 2e 22 20 45 4c 53 45 20 | 35 33 30 0d 0a 35 31 30 |." ELSE |530..510|
|000030e0| 20 49 46 20 53 46 20 41 | 4e 44 20 41 3c 3e 22 22 | IF SF A|ND A<>""|
|000030f0| 54 48 45 4e 20 41 24 3d | 4c 45 46 54 24 28 41 2c |THEN A$=|LEFT$(A,|
|00003100| 4c 45 4e 28 41 29 2d 32 | 29 0d 0a 35 32 30 20 43 |LEN(A)-2|)..520 C|
|00003110| 41 4c 4c 20 49 4f 2e 4f | 0d 0a 35 33 30 20 44 52 |ALL IO.O|..530 DR|
|00003120| 3d 44 52 2b 31 3a 49 46 | 20 44 52 3c 48 52 54 20 |=DR+1:IF| DR<HRT |
|00003130| 54 48 45 4e 20 35 39 30 | 0d 0a 35 35 30 20 44 52 |THEN 590|..550 DR|
|00003140| 3d 30 3a 46 31 3d 46 31 | 2b 33 3a 49 46 20 46 31 |=0:F1=F1|+3:IF F1|
|00003150| 3e 46 32 20 54 48 45 4e | 20 46 31 3d 46 32 0d 0a |>F2 THEN| F1=F2..|
|00003160| 35 36 30 20 4d 59 3d 4d | 59 2b 31 3a 49 46 20 4d |560 MY=M|Y+1:IF M|
|00003170| 59 3e 4d 32 20 54 48 45 | 4e 20 4d 59 3d 4d 32 0d |Y>M2 THE|N MY=M2.|
|00003180| 0a 35 37 30 20 49 46 20 | 50 49 20 54 48 45 4e 20 |.570 IF |PI THEN |
|00003190| 56 31 3d 56 31 2d 32 20 | 45 4c 53 45 20 56 31 3d |V1=V1-2 |ELSE V1=|
|000031a0| 56 31 2b 32 3a 49 46 20 | 56 31 3e 56 32 20 54 48 |V1+2:IF |V1>V2 TH|
|000031b0| 45 4e 20 56 31 3d 56 32 | 0d 0a 35 38 30 20 47 4f |EN V1=V2|..580 GO|
|000031c0| 53 55 42 20 36 35 36 30 | 3a 49 46 20 50 55 20 54 |SUB 6560|:IF PU T|
|000031d0| 48 45 4e 20 41 3d 22 59 | 6f 75 20 66 65 65 6c 20 |HEN A="Y|ou feel |
|000031e0| 70 6f 69 73 6f 6e 20 72 | 75 6e 6e 69 6e 67 20 74 |poison r|unning t|
|000031f0| 68 72 6f 75 67 68 20 79 | 6f 75 72 20 76 65 69 6e |hrough y|our vein|
|00003200| 73 21 22 3a 43 41 4c 4c | 20 49 4f 2e 4f 3a 49 46 |s!":CALL| IO.O:IF|
|00003210| 20 56 31 3c 30 20 54 48 | 45 4e 20 41 3d 22 59 6f | V1<0 TH|EN A="Yo|
|00003220| 75 20 66 69 6e 61 6c 6c | 79 20 64 69 65 64 20 66 |u finall|y died f|
|00003230| 72 6f 6d 20 68 69 73 20 | 70 6f 69 73 6f 6e 6f 75 |rom his |poisonou|
|00003240| 73 20 77 6f 75 6e 64 73 | 21 22 3a 43 41 4c 4c 20 |s wounds|!":CALL |
|00003250| 49 4f 2e 4f 3a 47 4f 54 | 4f 20 36 33 35 30 0d 0a |IO.O:GOT|O 6350..|
|00003260| 35 39 30 20 49 46 20 4e | 4d 20 54 48 45 4e 20 47 |590 IF N|M THEN G|
|00003270| 4f 53 55 42 20 35 37 39 | 30 0d 0a 36 30 30 20 44 |OSUB 579|0..600 D|
|00003280| 52 32 3d 44 52 32 2b 31 | 3a 49 46 20 4e 4d 20 54 |R2=DR2+1|:IF NM T|
|00003290| 48 45 4e 20 36 32 30 0d | 0a 36 31 30 20 49 46 20 |HEN 620.|.610 IF |
|000032a0| 43 56 49 28 4d 4e 24 29 | 54 48 45 4e 20 43 48 3d |CVI(MN$)|THEN CH=|
|000032b0| 43 56 49 28 4d 4e 24 29 | 3a 47 45 54 20 37 2c 43 |CVI(MN$)|:GET 7,C|
|000032c0| 48 3a 4e 43 3d 31 3a 49 | 46 20 43 56 49 28 41 42 |H:NC=1:I|F CVI(AB|
|000032d0| 29 3c 30 20 54 48 45 4e | 20 36 31 35 30 20 45 4c |)<0 THEN| 6150 EL|
|000032e0| 53 45 20 36 30 38 30 0d | 0a 36 32 30 20 49 46 20 |SE 6080.|.620 IF |
|000032f0| 44 52 32 3e 45 52 54 20 | 54 48 45 4e 20 44 52 32 |DR2>ERT |THEN DR2|
|00003300| 3d 30 3a 49 46 20 52 4e | 44 3e 2e 35 20 41 4e 44 |=0:IF RN|D>.5 AND|
|00003310| 20 4e 4d 3c 32 30 20 54 | 48 45 4e 20 36 30 35 30 | NM<20 T|HEN 6050|
|00003320| 0d 0a 36 33 30 20 49 46 | 20 49 39 20 54 48 45 4e |..630 IF| I9 THEN|
|00003330| 20 41 3d 22 44 6f 3f 22 | 20 45 4c 53 45 20 41 3d | A="Do?"| ELSE A=|
|00003340| 22 41 63 74 69 6f 6e 3f | 20 22 0d 0a 36 35 30 20 |"Action?| "..650 |
|00003350| 49 46 20 58 31 20 54 48 | 45 4e 20 58 33 3d 58 31 |IF X1 TH|EN X3=X1|
|00003360| 3a 58 31 3d 30 3a 4c 4d | 3d 2d 31 3a 4f 4e 20 58 |:X1=0:LM|=-1:ON X|
|00003370| 33 20 47 4f 54 4f 20 34 | 36 36 30 2c 34 36 33 30 |3 GOTO 4|660,4630|
|00003380| 2c 33 39 33 30 2c 32 36 | 32 30 2c 39 31 30 2c 33 |,3930,26|20,910,3|
|00003390| 30 36 30 2c 32 31 33 30 | 2c 31 39 39 30 2c 34 36 |060,2130|,1990,46|
|000033a0| 38 30 2c 36 36 34 30 0d | 0a 36 35 35 20 49 46 20 |80,6640.|.655 IF |
|000033b0| 58 33 20 54 48 45 4e 20 | 58 33 3d 30 3a 4c 4d 3d |X3 THEN |X3=0:LM=|
|000033c0| 30 0d 0a 36 36 30 20 43 | 41 4c 4c 20 49 4f 2e 49 |0..660 C|ALL IO.I|
|000033d0| 3a 49 46 20 4e 58 20 54 | 48 45 4e 20 54 45 24 3d |:IF NX T|HEN TE$=|
|000033e0| 22 22 3a 47 4f 54 4f 20 | 35 33 30 0d 0a 36 37 30 |"":GOTO |530..670|
|000033f0| 20 49 46 20 4c 45 46 54 | 24 28 41 4c 2c 31 29 3d | IF LEFT|$(AL,1)=|
|00003400| 22 2a 22 41 4e 44 20 43 | 32 3c 3e 37 20 41 4e 44 |"*"AND C|2<>7 AND|
|00003410| 20 4c 4d 3d 30 20 54 48 | 45 4e 20 41 3d 22 54 68 | LM=0 TH|EN A="Th|
|00003420| 61 74 20 63 6f 6d 6d 61 | 6e 64 20 69 73 20 72 65 |at comma|nd is re|
|00003430| 73 65 72 76 65 64 20 66 | 6f 72 20 44 4d 73 20 6f |served f|or DMs o|
|00003440| 6e 6c 79 21 22 3a 47 4f | 54 4f 20 35 32 30 0d 0a |nly!":GO|TO 520..|
|00003450| 36 38 30 20 47 4f 53 55 | 42 20 36 39 37 30 3a 49 |680 GOSU|B 6970:I|
|00003460| 46 20 41 4c 3d 22 22 20 | 54 48 45 4e 20 35 33 30 |F AL="" |THEN 530|
|00003470| 0d 0a 36 39 30 20 47 4f | 53 55 42 20 36 35 32 30 |..690 GO|SUB 6520|
|00003480| 3a 49 46 20 41 4c 3d 22 | 5c 22 54 48 45 4e 20 42 |:IF AL="|\"THEN B|
|00003490| 4b 3d 54 45 24 20 45 4c | 53 45 20 42 4b 3d 41 4c |K=TE$ EL|SE BK=AL|
|000034a0| 3a 54 45 24 3d 41 4c 0d | 0a 37 30 30 20 49 46 20 |:TE$=AL.|.700 IF |
|000034b0| 42 4b 3d 22 22 54 48 45 | 4e 20 35 33 30 0d 0a 37 |BK=""THE|N 530..7|
|000034c0| 31 30 20 42 4d 3d 42 4b | 3a 4d 49 3d 30 3a 49 46 |10 BM=BK|:MI=0:IF|
|000034d0| 20 49 4e 53 54 52 28 42 | 4d 2c 22 20 22 29 54 48 | INSTR(B|M," ")TH|
|000034e0| 45 4e 20 42 4d 3d 4c 45 | 46 54 24 28 42 4d 2c 49 |EN BM=LE|FT$(BM,I|
|000034f0| 4e 53 54 52 28 42 4d 2c | 22 20 22 29 2d 31 29 0d |NSTR(BM,|" ")-1).|
|00003500| 0a 37 32 30 20 53 50 3d | 49 4e 53 54 52 28 42 4b |.720 SP=|INSTR(BK|
|00003510| 2c 22 20 22 29 3a 49 46 | 20 53 50 20 54 48 45 4e |," "):IF| SP THEN|
|00003520| 20 37 38 30 0d 0a 37 33 | 30 20 49 46 20 42 4b 3d | 780..73|0 IF BK=|
|00003530| 22 4f 55 54 22 4f 52 20 | 42 4b 3d 22 4f 55 22 54 |"OUT"OR |BK="OU"T|
|00003540| 48 45 4e 20 42 4b 3d 22 | 4f 22 0d 0a 37 34 30 20 |HEN BK="|O"..740 |
|00003550| 44 37 3d 49 4e 53 54 52 | 28 22 4e 45 53 57 4f 55 |D7=INSTR|("NESWOU|
|00003560| 44 22 2c 42 4b 29 3a 49 | 46 20 44 37 20 54 48 45 |D",BK):I|F D7 THE|
|00003570| 4e 20 4c 53 3d 2d 31 3a | 47 4f 54 4f 20 31 34 38 |N LS=-1:|GOTO 148|
|00003580| 30 0d 0a 37 35 30 20 4c | 4e 3d 30 3a 46 4f 52 20 |0..750 L|N=0:FOR |
|00003590| 4c 53 3d 31 20 54 4f 20 | 33 39 3a 49 46 20 49 4e |LS=1 TO |39:IF IN|
|000035a0| 53 54 52 28 43 50 24 28 | 4c 53 29 2c 42 4d 29 3d |STR(CP$(|LS),BM)=|
|000035b0| 31 20 54 48 45 4e 20 49 | 46 20 4c 4e 20 54 48 45 |1 THEN I|F LN THE|
|000035c0| 4e 20 41 3d 22 43 6f 6d | 6d 61 6e 64 20 6e 6f 74 |N A="Com|mand not|
|000035d0| 20 75 6e 69 71 75 65 21 | 22 3a 47 4f 54 4f 20 35 | unique!|":GOTO 5|
|000035e0| 32 30 20 45 4c 53 45 20 | 4c 4e 3d 4c 53 0d 0a 37 |20 ELSE |LN=LS..7|
|000035f0| 36 30 20 4e 45 58 54 3a | 49 46 20 4c 4e 3d 30 20 |60 NEXT:|IF LN=0 |
|00003600| 54 48 45 4e 20 41 3d 22 | 49 20 64 6f 6e 27 74 20 |THEN A="|I don't |
|00003610| 75 6e 64 65 72 73 74 61 | 6e 64 21 20 54 79 70 65 |understa|nd! Type|
|00003620| 20 68 65 6c 70 2e 22 3a | 47 4f 54 4f 20 35 32 30 | help.":|GOTO 520|
|00003630| 0d 0a 37 37 30 20 4c 53 | 3d 4c 4e 3a 4f 4e 20 4c |..770 LS|=LN:ON L|
|00003640| 4e 20 47 4f 54 4f 20 33 | 31 30 30 2c 33 31 30 30 |N GOTO 3|100,3100|
|00003650| 2c 32 31 30 2c 31 36 39 | 30 2c 31 36 39 30 2c 31 |,210,169|0,1690,1|
|00003660| 37 32 30 2c 31 37 39 30 | 2c 31 38 34 30 2c 31 39 |720,1790|,1840,19|
|00003670| 32 30 2c 32 31 31 30 2c | 34 34 36 30 2c 34 38 33 |20,2110,|4460,483|
|00003680| 30 2c 34 38 37 30 2c 37 | 35 31 30 2c 37 35 31 30 |0,4870,7|510,7510|
|00003690| 2c 37 35 31 30 2c 31 39 | 36 30 2c 39 37 30 2c 31 |,7510,19|60,970,1|
|000036a0| 30 39 30 2c 32 36 35 30 | 2c 31 30 33 30 2c 39 34 |090,2650|,1030,94|
|000036b0| 30 2c 37 32 31 30 2c 38 | 33 30 2c 34 36 37 30 2c |0,7210,8|30,4670,|
|000036c0| 31 39 37 30 2c 34 36 33 | 30 2c 36 30 35 30 2c 39 |1970,463|0,6050,9|
|000036d0| 36 30 2c 32 30 31 30 2c | 31 33 39 30 2c 31 34 31 |60,2010,|1390,141|
|000036e0| 30 2c 31 33 32 30 2c 31 | 31 34 30 2c 31 31 36 30 |0,1320,1|140,1160|
|000036f0| 2c 31 31 37 30 2c 31 32 | 30 30 2c 31 32 31 30 2c |,1170,12|00,1210,|
|00003700| 31 32 36 30 0d 0a 37 38 | 30 20 4e 24 3d 4d 49 44 |1260..78|0 N$=MID|
|00003710| 24 28 42 4b 2c 53 50 2b | 31 29 0d 0a 37 39 30 20 |$(BK,SP+|1)..790 |
|00003720| 49 46 20 4e 24 3d 22 4e | 4f 52 54 48 22 4f 52 20 |IF N$="N|ORTH"OR |
|00003730| 4e 24 3d 22 53 4f 55 54 | 48 22 4f 52 20 4e 24 3d |N$="SOUT|H"OR N$=|
|00003740| 22 57 45 53 54 22 4f 52 | 20 4e 24 3d 22 55 50 22 |"WEST"OR| N$="UP"|
|00003750| 4f 52 20 4e 24 3d 22 44 | 4f 57 4e 22 4f 52 20 4e |OR N$="D|OWN"OR N|
|00003760| 24 3d 22 4f 55 54 22 54 | 48 45 4e 20 42 4b 3d 4c |$="OUT"T|HEN BK=L|
|00003770| 45 46 54 24 28 4e 24 2c | 31 29 3a 47 4f 54 4f 20 |EFT$(N$,|1):GOTO |
|00003780| 37 34 30 0d 0a 38 30 30 | 20 56 32 24 3d 4e 24 3a |740..800| V2$=N$:|
|00003790| 47 4f 53 55 42 20 36 38 | 31 30 3a 4c 4e 3d 30 3a |GOSUB 68|10:LN=0:|
|000037a0| 46 4f 52 20 4c 53 3d 31 | 20 54 4f 20 34 31 3a 49 |FOR LS=1| TO 41:I|
|000037b0| 46 20 49 4e 53 54 52 28 | 43 53 24 28 4c 53 29 2c |F INSTR(|CS$(LS),|
|000037c0| 42 4d 29 3d 31 20 54 48 | 45 4e 20 49 46 20 4c 4e |BM)=1 TH|EN IF LN|
|000037d0| 20 54 48 45 4e 20 41 3d | 22 43 6f 6d 6d 61 6e 64 | THEN A=|"Command|
|000037e0| 20 6e 6f 74 20 75 6e 69 | 71 75 65 21 22 3a 47 4f | not uni|que!":GO|
|000037f0| 54 4f 20 35 32 30 20 45 | 4c 53 45 20 4c 4e 3d 4c |TO 520 E|LSE LN=L|
|00003800| 53 0d 0a 38 31 30 20 4e | 45 58 54 3a 49 46 20 4c |S..810 N|EXT:IF L|
|00003810| 4e 3d 30 20 54 48 45 4e | 20 41 3d 22 49 20 64 6f |N=0 THEN| A="I do|
|00003820| 6e 27 74 20 75 6e 64 65 | 72 73 74 61 6e 64 21 20 |n't unde|rstand! |
|00003830| 54 79 70 65 20 68 65 6c | 70 2e 22 3a 47 4f 54 4f |Type hel|p.":GOTO|
|00003840| 20 35 32 30 0d 0a 38 32 | 30 20 4c 53 3d 4c 4e 3a | 520..82|0 LS=LN:|
|00003850| 4f 4e 20 4c 4e 20 47 4f | 54 4f 20 33 31 30 30 2c |ON LN GO|TO 3100,|
|00003860| 33 31 30 30 2c 31 36 33 | 30 2c 32 38 32 30 2c 32 |3100,163|0,2820,2|
|00003870| 32 36 30 2c 32 32 36 30 | 2c 32 32 36 30 2c 31 36 |260,2260|,2260,16|
|00003880| 33 30 2c 33 37 34 30 2c | 33 37 34 30 2c 33 39 34 |30,3740,|3740,394|
|00003890| 30 2c 33 39 34 30 2c 34 | 33 34 30 2c 34 39 33 30 |0,3940,4|340,4930|
|000038a0| 2c 34 39 33 30 2c 34 39 | 37 30 2c 35 31 30 30 2c |,4930,49|70,5100,|
|000038b0| 34 32 31 30 2c 34 32 31 | 30 2c 34 32 34 30 2c 34 |4210,421|0,4240,4|
|000038c0| 32 39 30 2c 32 36 35 30 | 2c 35 33 37 30 2c 35 32 |290,2650|,5370,52|
|000038d0| 33 30 2c 35 34 32 30 2c | 35 34 32 30 2c 33 35 33 |30,5420,|5420,353|
|000038e0| 30 2c 33 35 39 30 2c 33 | 36 36 30 2c 39 38 30 2c |0,3590,3|660,980,|
|000038f0| 31 35 39 30 2c 32 31 35 | 30 2c 32 36 33 30 2c 33 |1590,215|0,2630,3|
|00003900| 39 34 30 2c 34 37 30 30 | 2c 33 30 38 30 2c 39 33 |940,4700|,3080,93|
|00003910| 30 2c 32 31 37 30 2c 31 | 34 30 30 2c 31 34 32 30 |0,2170,1|400,1420|
|00003920| 2c 31 34 34 30 0d 0a 38 | 33 30 20 42 35 3d 52 49 |,1440..8|30 B5=RI|
|00003930| 47 48 54 24 28 44 41 54 | 45 24 2c 32 29 2b 22 20 |GHT$(DAT|E$,2)+" |
|00003940| 22 2b 4d 49 44 24 28 22 | 4a 61 6e 46 65 62 4d 61 |"+MID$("|JanFebMa|
|00003950| 72 41 70 72 4d 61 79 4a | 75 6e 4a 75 6c 41 75 67 |rAprMayJ|unJulAug|
|00003960| 53 65 70 4f 63 74 4e 6f | 76 44 65 63 22 2c 56 41 |SepOctNo|vDec",VA|
|00003970| 4c 28 4c 45 46 54 24 28 | 44 41 54 45 24 2c 32 29 |L(LEFT$(|DATE$,2)|
|00003980| 29 2a 33 2d 32 2c 33 29 | 2b 22 20 22 2b 4d 49 44 |)*3-2,3)|+" "+MID|
|00003990| 24 28 44 41 54 45 24 2c | 34 2c 32 29 2b 22 2c 20 |$(DATE$,|4,2)+", |
|000039a0| 22 3a 4c 50 3d 56 41 4c | 28 4c 45 46 54 24 28 54 |":LP=VAL|(LEFT$(T|
|000039b0| 49 4d 45 24 2c 32 29 29 | 3a 54 24 3d 4d 49 44 24 |IME$,2))|:T$=MID$|
|000039c0| 28 22 20 61 6d 20 70 6d | 22 2c 28 31 2d 28 4c 50 |(" am pm|",(1-(LP|
|000039d0| 3e 31 32 29 29 2a 33 2d | 32 2c 33 29 3a 4c 50 3d |>12))*3-|2,3):LP=|
|000039e0| 4c 50 2b 31 32 2a 28 4c | 50 3e 31 32 29 2d 31 32 |LP+12*(L|P>12)-12|
|000039f0| 2a 28 4c 50 3d 30 29 3a | 54 24 3d 22 20 22 2b 42 |*(LP=0):|T$=" "+B|
|00003a00| 35 2b 53 54 52 24 28 4c | 50 29 2b 4d 49 44 24 28 |5+STR$(L|P)+MID$(|
|00003a10| 54 49 4d 45 24 2c 33 2c | 33 29 2b 54 24 0d 0a 38 |TIME$,3,|3)+T$..8|
|00003a20| 34 30 20 41 3d 22 49 74 | 20 69 73 20 6e 6f 77 20 |40 A="It| is now |
|00003a30| 22 2b 54 24 3a 43 41 4c | 4c 20 49 4f 2e 4f 3a 54 |"+T$:CAL|L IO.O:T|
|00003a40| 49 21 3d 56 41 4c 28 4d | 49 44 24 28 54 49 4d 45 |I!=VAL(M|ID$(TIME|
|00003a50| 24 2c 31 2c 32 29 29 2a | 33 36 30 30 2b 56 41 4c |$,1,2))*|3600+VAL|
|00003a60| 28 4d 49 44 24 28 54 49 | 4d 45 24 2c 34 2c 32 29 |(MID$(TI|ME$,4,2)|
|00003a70| 29 2a 36 30 2b 56 41 4c | 28 4d 49 44 24 28 54 49 |)*60+VAL|(MID$(TI|
|00003a80| 4d 45 24 2c 37 2c 32 29 | 29 0d 0a 38 35 30 20 49 |ME$,7,2)|)..850 I|
|00003a90| 46 20 54 49 21 3d 3e 54 | 32 21 54 48 45 4e 20 54 |F TI!=>T|2!THEN T|
|00003aa0| 33 21 3d 54 49 21 2d 54 | 32 21 20 45 4c 53 45 20 |3!=TI!-T|2! ELSE |
|00003ab0| 54 33 21 3d 54 49 21 2b | 38 36 34 30 30 21 2d 54 |T3!=TI!+|86400!-T|
|00003ac0| 32 21 0d 0a 38 36 30 20 | 41 3d 22 59 6f 75 20 68 |2!..860 |A="You h|
|00003ad0| 61 76 65 20 62 65 65 6e | 20 6f 6e 20 66 6f 72 22 |ave been| on for"|
|00003ae0| 3a 54 35 21 3d 49 4e 54 | 28 54 33 21 2f 36 30 29 |:T5!=INT|(T3!/60)|
|00003af0| 3a 54 34 21 3d 54 33 21 | 2d 54 35 21 2a 36 30 3a |:T4!=T3!|-T5!*60:|
|00003b00| 49 46 20 54 35 21 3d 30 | 20 54 48 45 4e 20 41 3d |IF T5!=0| THEN A=|
|00003b10| 41 2b 53 54 52 24 28 54 | 34 21 29 2b 22 20 73 65 |A+STR$(T|4!)+" se|
|00003b20| 63 6f 6e 64 73 2e 22 3a | 47 4f 54 4f 20 38 38 30 |conds.":|GOTO 880|
|00003b30| 0d 0a 38 37 30 20 49 46 | 20 54 35 21 3e 36 30 20 |..870 IF| T5!>60 |
|00003b40| 54 48 45 4e 20 41 3d 41 | 2b 22 20 6d 6f 72 65 20 |THEN A=A|+" more |
|00003b50| 74 68 61 6e 20 61 6e 20 | 68 6f 75 72 2e 22 20 45 |than an |hour." E|
|00003b60| 4c 53 45 20 41 3d 41 2b | 53 54 52 24 28 54 35 21 |LSE A=A+|STR$(T5!|
|00003b70| 29 2b 22 20 6d 69 6e 75 | 74 65 73 22 3a 49 46 20 |)+" minu|tes":IF |
|00003b80| 54 34 21 54 48 45 4e 20 | 41 3d 41 2b 22 20 61 6e |T4!THEN |A=A+" an|
|00003b90| 64 22 2b 53 54 52 24 28 | 54 34 21 29 2b 22 20 73 |d"+STR$(|T4!)+" s|
|00003ba0| 65 63 6f 6e 64 73 2e 22 | 20 45 4c 53 45 20 41 3d |econds."| ELSE A=|
|00003bb0| 41 2b 22 2e 22 0d 0a 38 | 38 30 20 43 41 4c 4c 20 |A+"."..8|80 CALL |
|00003bc0| 49 4f 2e 4f 3a 54 33 21 | 3d 43 58 21 2d 54 33 21 |IO.O:T3!|=CX!-T3!|
|00003bd0| 3a 54 35 21 3d 49 4e 54 | 28 54 33 21 2f 36 30 29 |:T5!=INT|(T3!/60)|
|00003be0| 3a 54 34 21 3d 54 33 21 | 2d 54 35 21 2a 36 30 3a |:T4!=T3!|-T5!*60:|
|00003bf0| 41 3d 22 59 6f 75 20 68 | 61 76 65 22 2b 53 54 52 |A="You h|ave"+STR|
|00003c00| 24 28 54 35 21 29 2b 22 | 20 6d 69 6e 75 74 65 73 |$(T5!)+"| minutes|
|00003c10| 22 3a 49 46 20 54 34 21 | 54 48 45 4e 20 41 3d 41 |":IF T4!|THEN A=A|
|00003c20| 2b 22 20 61 6e 64 22 2b | 53 54 52 24 28 54 34 21 |+" and"+|STR$(T4!|
|00003c30| 29 2b 22 20 73 65 63 6f | 6e 64 73 22 0d 0a 38 39 |)+" seco|nds"..89|
|00003c40| 30 20 49 46 20 4c 4d 3d | 30 20 54 48 45 4e 20 41 |0 IF LM=|0 THEN A|
|00003c50| 3d 41 2b 22 20 72 65 6d | 61 69 6e 69 6e 67 22 3a |=A+" rem|aining":|
|00003c60| 43 41 4c 4c 20 49 4f 2e | 4f 0d 0a 39 30 30 20 47 |CALL IO.|O..900 G|
|00003c70| 4f 54 4f 20 36 33 30 0d | 0a 39 31 30 20 49 46 20 |OTO 630.|.910 IF |
|00003c80| 49 39 20 54 48 45 4e 20 | 41 3d 22 44 6f 3f 22 20 |I9 THEN |A="Do?" |
|00003c90| 45 4c 53 45 20 41 3d 22 | 41 63 74 69 6f 6e 3f 20 |ELSE A="|Action? |
|00003ca0| 22 0d 0a 39 32 30 20 41 | 3d 41 2b 22 2a 43 41 4c |"..920 A|=A+"*CAL|
|00003cb0| 4c 22 3a 43 41 4c 4c 20 | 49 4f 2e 49 3a 4c 4d 3d |L":CALL |IO.I:LM=|
|00003cc0| 30 3a 49 46 20 4e 58 20 | 54 48 45 4e 20 36 30 35 |0:IF NX |THEN 605|
|00003cd0| 30 0d 0a 39 33 30 20 43 | 48 3d 56 41 4c 28 4e 24 |0..930 C|H=VAL(N$|
|00003ce0| 29 3a 49 46 20 43 48 3e | 30 20 41 4e 44 20 43 48 |):IF CH>|0 AND CH|
|00003cf0| 3c 3d 4c 4f 46 28 37 29 | 2f 31 32 38 20 54 48 45 |<=LOF(7)|/128 THE|
|00003d00| 4e 20 36 30 38 30 20 45 | 4c 53 45 20 36 33 30 0d |N 6080 E|LSE 630.|
|00003d10| 0a 39 34 30 20 49 39 3d | 4e 4f 54 20 49 39 3a 49 |.940 I9=|NOT I9:I|
|00003d20| 46 20 49 39 20 54 48 45 | 4e 20 41 3d 22 42 72 69 |F I9 THE|N A="Bri|
|00003d30| 65 66 20 6d 6f 64 65 20 | 6f 6e 22 20 45 4c 53 45 |ef mode |on" ELSE|
|00003d40| 20 41 3d 22 42 72 69 65 | 66 20 6d 6f 64 65 20 6f | A="Brie|f mode o|
|00003d50| 66 66 22 0d 0a 39 35 30 | 20 43 41 4c 4c 20 49 4f |ff"..950| CALL IO|
|00003d60| 2e 4f 3a 47 4f 54 4f 20 | 36 33 30 0d 0a 39 36 30 |.O:GOTO |630..960|
|00003d70| 20 49 46 20 4c 4d 20 54 | 48 45 4e 20 53 48 45 4c | IF LM T|HEN SHEL|
|00003d80| 4c 3a 43 4c 53 3a 47 4f | 53 55 42 20 36 35 34 30 |L:CLS:GO|SUB 6540|
|00003d90| 3a 47 4f 54 4f 20 35 33 | 30 20 45 4c 53 45 20 41 |:GOTO 53|0 ELSE A|
|00003da0| 3d 22 49 20 64 6f 6e 27 | 74 20 75 6e 64 65 72 73 |="I don'|t unders|
|00003db0| 74 61 6e 64 21 20 54 79 | 70 65 20 68 65 6c 70 2e |tand! Ty|pe help.|
|00003dc0| 22 3a 47 4f 54 4f 20 35 | 32 30 0d 0a 39 37 30 20 |":GOTO 5|20..970 |
|00003dd0| 42 44 3d 50 41 32 24 2b | 22 48 45 4c 50 31 2e 48 |BD=PA2$+|"HELP1.H|
|00003de0| 4c 50 22 3a 47 4f 53 55 | 42 20 36 37 32 30 3a 47 |LP":GOSU|B 6720:G|
|00003df0| 4f 54 4f 20 36 33 30 0d | 0a 39 38 30 20 49 46 20 |OTO 630.|.980 IF |
|00003e00| 49 4e 53 54 52 28 4e 24 | 2c 22 2a 22 29 4f 52 20 |INSTR(N$|,"*")OR |
|00003e10| 49 4e 53 54 52 28 4e 24 | 2c 22 3f 22 29 54 48 45 |INSTR(N$|,"?")THE|
|00003e20| 4e 20 42 44 3d 50 41 32 | 24 2b 22 48 45 4c 50 32 |N BD=PA2|$+"HELP2|
|00003e30| 2e 48 4c 50 22 3a 47 4f | 53 55 42 20 36 37 32 30 |.HLP":GO|SUB 6720|
|00003e40| 3a 47 4f 54 4f 20 36 33 | 30 0d 0a 39 39 30 20 41 |:GOTO 63|0..990 A|
|00003e50| 4c 3d 4c 45 46 54 24 28 | 4e 24 2c 38 29 3a 47 4f |L=LEFT$(|N$,8):GO|
|00003e60| 53 55 42 20 36 35 32 30 | 3a 46 4f 52 20 4c 50 3d |SUB 6520|:FOR LP=|
|00003e70| 31 20 54 4f 20 33 39 3a | 49 46 20 4c 45 46 54 24 |1 TO 39:|IF LEFT$|
|00003e80| 28 43 50 24 28 4c 50 29 | 2c 38 29 3d 41 4c 20 54 |(CP$(LP)|,8)=AL T|
|00003e90| 48 45 4e 20 31 30 32 30 | 0d 0a 31 30 30 30 20 4e |HEN 1020|..1000 N|
|00003ea0| 45 58 54 3a 46 4f 52 20 | 4c 50 3d 31 20 54 4f 20 |EXT:FOR |LP=1 TO |
|00003eb0| 34 31 3a 49 46 20 4c 45 | 46 54 24 28 43 53 24 28 |41:IF LE|FT$(CS$(|
|00003ec0| 4c 50 29 2c 38 29 3d 41 | 4c 20 54 48 45 4e 20 31 |LP),8)=A|L THEN 1|
|00003ed0| 30 32 30 0d 0a 31 30 31 | 30 20 4e 45 58 54 3a 41 |020..101|0 NEXT:A|
|00003ee0| 3d 22 48 65 6c 70 66 69 | 6c 65 20 6e 6f 74 20 66 |="Helpfi|le not f|
|00003ef0| 6f 75 6e 64 21 22 3a 43 | 41 4c 4c 20 49 4f 2e 4f |ound!":C|ALL IO.O|
|00003f00| 3a 47 4f 54 4f 20 36 33 | 30 0d 0a 31 30 32 30 20 |:GOTO 63|0..1020 |
|00003f10| 42 44 3d 50 41 32 24 2b | 41 4c 2b 22 2e 48 4c 50 |BD=PA2$+|AL+".HLP|
|00003f20| 22 3a 47 4f 53 55 42 20 | 36 37 32 30 3a 47 4f 54 |":GOSUB |6720:GOT|
|00003f30| 4f 20 36 33 30 0d 0a 31 | 30 33 30 20 49 46 20 52 |O 630..1|030 IF R|
|00003f40| 4d 3c 3e 54 53 28 31 31 | 29 54 48 45 4e 20 41 3d |M<>TS(11|)THEN A=|
|00003f50| 22 46 69 6e 64 20 74 68 | 65 20 77 65 61 70 6f 6e |"Find th|e weapon|
|00003f60| 73 20 73 68 6f 70 2e 2e | 22 3a 47 4f 54 4f 20 35 |s shop..|":GOTO 5|
|00003f70| 32 30 0d 0a 31 30 34 30 | 20 41 3d 22 54 6f 20 62 |20..1040| A="To b|
|00003f80| 75 79 2c 20 74 79 70 65 | 20 27 62 75 79 20 23 27 |uy, type| 'buy #'|
|00003f90| 20 6c 69 6b 65 20 27 62 | 75 79 20 31 32 27 22 3a | like 'b|uy 12'":|
|00003fa0| 43 41 4c 4c 20 49 4f 2e | 4f 3a 41 3d 22 23 23 23 |CALL IO.|O:A="###|
|00003fb0| 20 20 77 65 61 70 6f 6e | 20 20 20 20 20 20 20 20 |  weapon|        |
|00003fc0| 20 20 20 20 20 20 77 67 | 74 2e 20 20 67 6f 6c 64 |      wg|t.  gold|
|00003fd0| 20 20 2b 22 3a 43 41 4c | 4c 20 49 4f 2e 4f 3a 49 |  +":CAL|L IO.O:I|
|00003fe0| 4e 3d 31 3a 46 4f 52 20 | 4c 50 3d 31 20 54 4f 20 |N=1:FOR |LP=1 TO |
|00003ff0| 33 36 3a 47 45 54 20 38 | 2c 4c 50 3a 49 46 20 4c |36:GET 8|,LP:IF L|
|00004000| 50 3c 31 30 20 54 48 45 | 4e 20 41 3d 22 20 22 2b |P<10 THE|N A=" "+|
|00004010| 53 54 52 24 28 4c 50 29 | 20 45 4c 53 45 20 41 3d |STR$(LP)| ELSE A=|
|00004020| 53 54 52 24 28 4c 50 29 | 0d 0a 31 30 35 30 20 41 |STR$(LP)|..1050 A|
|00004030| 3d 41 2b 22 20 20 22 2b | 4c 45 46 54 24 28 41 33 |=A+"  "+|LEFT$(A3|
|00004040| 2c 31 39 29 2b 22 20 22 | 3a 4c 4e 3d 56 41 4c 28 |,19)+" "|:LN=VAL(|
|00004050| 57 36 24 29 3a 49 46 20 | 4c 4e 3c 31 30 20 54 48 |W6$):IF |LN<10 TH|
|00004060| 45 4e 20 41 3d 41 2b 22 | 20 20 22 2b 53 54 52 24 |EN A=A+"|  "+STR$|
|00004070| 28 4c 4e 29 20 45 4c 53 | 45 20 49 46 20 4c 4e 3c |(LN) ELS|E IF LN<|
|00004080| 31 30 30 20 54 48 45 4e | 20 41 3d 41 2b 22 20 22 |100 THEN| A=A+" "|
|00004090| 2b 53 54 52 24 28 4c 4e | 29 20 45 4c 53 45 20 41 |+STR$(LN|) ELSE A|
|000040a0| 3d 41 2b 53 54 52 24 28 | 4c 4e 29 0d 0a 31 30 36 |=A+STR$(|LN)..106|
|000040b0| 30 20 41 3d 41 2b 22 20 | 20 20 22 3a 4c 4e 3d 56 |0 A=A+" |  ":LN=V|
|000040c0| 41 4c 28 56 33 24 29 3a | 49 46 20 4c 4e 3c 31 30 |AL(V3$):|IF LN<10|
|000040d0| 30 20 54 48 45 4e 20 41 | 3d 41 2b 22 20 22 2b 53 |0 THEN A|=A+" "+S|
|000040e0| 54 52 24 28 4c 4e 29 20 | 45 4c 53 45 20 41 3d 41 |TR$(LN) |ELSE A=A|
|000040f0| 2b 53 54 52 24 28 4c 4e | 29 0d 0a 31 30 37 30 20 |+STR$(LN|)..1070 |
|00004100| 41 3d 41 2b 22 20 22 2b | 53 54 52 24 28 41 42 53 |A=A+" "+|STR$(ABS|
|00004110| 28 56 41 4c 28 57 30 24 | 29 29 29 3a 43 41 4c 4c |(VAL(W0$|))):CALL|
|00004120| 20 49 4f 2e 4f 3a 49 46 | 20 54 46 20 54 48 45 4e | IO.O:IF| TF THEN|
|00004130| 20 49 4e 3d 30 3a 47 4f | 54 4f 20 36 33 30 0d 0a | IN=0:GO|TO 630..|
|00004140| 31 30 38 30 20 4e 45 58 | 54 3a 49 4e 3d 30 3a 47 |1080 NEX|T:IN=0:G|
|00004150| 4f 54 4f 20 36 33 30 0d | 0a 31 30 39 30 20 41 3d |OTO 630.|.1090 A=|
|00004160| 22 59 6f 75 20 68 69 64 | 65 20 69 6e 20 74 68 65 |"You hid|e in the|
|00004170| 20 73 68 61 64 6f 77 73 | 2e 2e 22 3a 43 41 4c 4c | shadows|..":CALL|
|00004180| 20 49 4f 2e 4f 3a 47 51 | 3d 2d 31 3a 47 4f 54 4f | IO.O:GQ|=-1:GOTO|
|00004190| 20 35 33 30 0d 0a 31 31 | 34 30 20 49 46 20 52 4d | 530..11|40 IF RM|
|000041a0| 3d 54 53 28 31 32 29 20 | 54 48 45 4e 20 47 4f 53 |=TS(12) |THEN GOS|
|000041b0| 55 42 20 31 38 30 30 3a | 50 55 54 20 33 2c 55 58 |UB 1800:|PUT 3,UX|
|000041c0| 3a 43 41 4c 4c 20 43 41 | 53 49 4e 4f 3a 47 4f 53 |:CALL CA|SINO:GOS|
|000041d0| 55 42 20 37 34 30 30 3a | 47 4f 53 55 42 20 36 37 |UB 7400:|GOSUB 67|
|000041e0| 35 30 3a 47 4f 53 55 42 | 20 36 35 36 30 3a 47 4f |50:GOSUB| 6560:GO|
|000041f0| 54 4f 20 32 31 30 0d 0a | 31 31 35 30 20 41 3d 22 |TO 210..|1150 A="|
|00004200| 46 69 6e 64 20 74 68 65 | 20 43 61 73 69 6e 6f 20 |Find the| Casino |
|00004210| 66 69 72 73 74 2e 2e 22 | 3a 47 4f 54 4f 20 35 32 |first.."|:GOTO 52|
|00004220| 30 0d 0a 31 31 36 30 20 | 41 3d 22 54 75 72 6e 20 |0..1160 |A="Turn |
|00004230| 6c 69 6e 65 66 65 65 64 | 73 20 4f 4e 20 6f 72 20 |linefeed|s ON or |
|00004240| 4f 46 46 3f 20 22 3a 43 | 41 4c 4c 20 49 4f 2e 49 |OFF? ":C|ALL IO.I|
|00004250| 3a 47 4f 53 55 42 20 36 | 39 37 30 3a 47 4f 53 55 |:GOSUB 6|970:GOSU|
|00004260| 42 20 36 35 32 30 3a 49 | 46 20 41 4c 3d 22 4f 4e |B 6520:I|F AL="ON|
|00004270| 22 20 54 48 45 4e 20 4c | 52 3d 30 3a 41 3d 22 4c |" THEN L|R=0:A="L|
|00004280| 69 6e 65 66 65 65 64 73 | 20 6f 6e 2e 22 3a 47 4f |inefeeds| on.":GO|
|00004290| 54 4f 20 35 32 30 20 45 | 4c 53 45 20 4c 52 3d 31 |TO 520 E|LSE LR=1|
|000042a0| 3a 41 3d 22 4c 69 6e 65 | 66 65 65 64 73 20 6f 66 |:A="Line|feeds of|
|000042b0| 66 2e 22 3a 47 4f 54 4f | 20 35 32 30 0d 0a 31 31 |f.":GOTO| 520..11|
|000042c0| 37 30 20 41 3d 22 43 68 | 61 6e 67 65 20 79 6f 75 |70 A="Ch|ange you|
|000042d0| 72 20 70 61 73 73 77 6f | 72 64 5b 59 2f 4e 5d 3f |r passwo|rd[Y/N]?|
|000042e0| 20 22 3a 46 47 3d 31 3a | 43 41 4c 4c 20 49 4f 2e | ":FG=1:|CALL IO.|
|000042f0| 49 3a 49 46 20 59 45 3d | 30 20 54 48 45 4e 20 41 |I:IF YE=|0 THEN A|
|00004300| 3d 22 59 6f 75 72 20 70 | 61 73 73 77 6f 72 64 20 |="Your p|assword |
|00004310| 68 61 73 20 6e 6f 74 20 | 62 65 65 6e 20 63 68 61 |has not |been cha|
|00004320| 6e 67 65 64 2e 22 3a 47 | 4f 54 4f 20 35 32 30 0d |nged.":G|OTO 520.|
|00004330| 0a 31 31 38 30 20 41 3d | 22 54 79 70 65 20 69 6e |.1180 A=|"Type in|
|00004340| 20 6e 65 77 20 70 61 73 | 73 77 6f 72 64 28 32 30 | new pas|sword(20|
|00004350| 20 63 68 61 72 2e 20 6d | 61 78 2e 29 22 3a 43 41 | char. m|ax.)":CA|
|00004360| 4c 4c 20 49 4f 2e 4f 3a | 46 47 3d 32 30 3a 41 3d |LL IO.O:|FG=20:A=|
|00004370| 22 3f 22 3a 43 41 4c 4c | 20 49 4f 2e 49 3a 49 46 |"?":CALL| IO.I:IF|
|00004380| 20 4e 58 20 54 48 45 4e | 20 41 3d 22 50 61 73 73 | NX THEN| A="Pass|
|00004390| 77 6f 72 64 20 6e 6f 74 | 20 63 68 61 6e 67 65 64 |word not| changed|
|000043a0| 22 3a 47 4f 54 4f 20 35 | 32 30 0d 0a 31 31 39 30 |":GOTO 5|20..1190|
|000043b0| 20 47 4f 53 55 42 20 36 | 35 32 30 3a 47 45 54 20 | GOSUB 6|520:GET |
|000043c0| 33 2c 55 58 3a 4c 53 45 | 54 20 50 53 24 3d 41 4c |3,UX:LSE|T PS$=AL|
|000043d0| 3a 50 55 54 20 33 2c 55 | 58 3a 41 3d 22 50 61 73 |:PUT 3,U|X:A="Pas|
|000043e0| 73 77 6f 72 64 20 63 68 | 61 6e 67 65 64 20 74 6f |sword ch|anged to|
|000043f0| 20 22 2b 41 4c 3a 47 4f | 54 4f 20 35 32 30 0d 0a | "+AL:GO|TO 520..|
|00004400| 31 32 30 30 20 47 4f 53 | 55 42 20 31 38 30 30 3a |1200 GOS|UB 1800:|
|00004410| 50 55 54 20 33 2c 55 58 | 3a 43 41 4c 4c 20 4d 41 |PUT 3,UX|:CALL MA|
|00004420| 49 4c 3a 47 4f 53 55 42 | 20 37 34 30 30 3a 47 4f |IL:GOSUB| 7400:GO|
|00004430| 53 55 42 20 36 37 35 30 | 3a 47 4f 53 55 42 20 36 |SUB 6750|:GOSUB 6|
|00004440| 35 36 30 3a 47 4f 54 4f | 20 32 31 30 0d 0a 31 32 |560:GOTO| 210..12|
|00004450| 31 30 20 41 3d 22 48 69 | 74 20 5b 53 50 41 43 45 |10 A="Hi|t [SPACE|
|00004460| 5d 20 74 6f 20 73 74 6f | 70 2e 22 3a 43 41 4c 4c |] to sto|p.":CALL|
|00004470| 20 49 4f 2e 4f 3a 49 4e | 3d 31 0d 0a 31 32 32 30 | IO.O:IN|=1..1220|
|00004480| 20 46 4f 52 20 53 58 3d | 31 20 54 4f 20 4c 4f 46 | FOR SX=|1 TO LOF|
|00004490| 28 33 29 2f 32 35 36 3a | 47 45 54 20 33 2c 53 58 |(3)/256:|GET 3,SX|
|000044a0| 3a 49 46 20 4c 45 46 54 | 24 28 41 4e 2c 38 29 3d |:IF LEFT|$(AN,8)=|
|000044b0| 22 5a 5a 5a 5a 5a 4e 55 | 4c 22 20 4f 52 28 4c 4d |"ZZZZZNU|L" OR(LM|
|000044c0| 3d 30 20 41 4e 44 20 56 | 41 4c 28 4c 43 4b 24 29 |=0 AND V|AL(LCK$)|
|000044d0| 29 20 54 48 45 4e 20 31 | 32 35 30 0d 0a 31 32 33 |) THEN 1|250..123|
|000044e0| 30 20 41 3d 41 4e 2b 22 | 4c 76 6c 3a 22 2b 53 54 |0 A=AN+"|Lvl:"+ST|
|000044f0| 52 24 28 43 56 49 28 42 | 34 29 29 3a 49 46 20 43 |R$(CVI(B|4)):IF C|
|00004500| 56 49 28 42 34 29 3e 39 | 20 54 48 45 4e 20 41 3d |VI(B4)>9| THEN A=|
|00004510| 41 2b 22 20 20 20 22 20 | 45 4c 53 45 20 41 3d 41 |A+"   " |ELSE A=A|
|00004520| 2b 22 20 20 20 20 22 0d | 0a 31 32 34 30 20 41 3d |+"    ".|.1240 A=|
|00004530| 41 2b 41 32 3a 43 41 4c | 4c 20 49 4f 2e 4f 3a 49 |A+A2:CAL|L IO.O:I|
|00004540| 46 20 54 46 20 54 48 45 | 4e 20 36 33 30 0d 0a 31 |F TF THE|N 630..1|
|00004550| 32 35 30 20 4e 45 58 54 | 3a 49 4e 3d 30 3a 47 4f |250 NEXT|:IN=0:GO|
|00004560| 54 4f 20 36 33 30 0d 0a | 31 32 36 30 20 41 3d 22 |TO 630..|1260 A="|
|00004570| 50 61 67 69 6e 67 20 53 | 79 73 4f 70 2e 22 3a 43 |Paging S|ysOp.":C|
|00004580| 41 4c 4c 20 49 4f 2e 4f | 3a 41 3d 22 48 69 74 20 |ALL IO.O|:A="Hit |
|00004590| 5b 53 50 41 43 45 5d 20 | 74 6f 20 72 65 74 75 72 |[SPACE] |to retur|
|000045a0| 6e 20 74 6f 20 4d 65 6e | 75 2e 22 3a 43 41 4c 4c |n to Men|u.":CALL|
|000045b0| 20 49 4f 2e 4f 3a 50 52 | 49 4e 54 20 22 53 59 53 | IO.O:PR|INT "SYS|
|000045c0| 4f 50 20 48 49 54 20 5b | 45 53 43 5d 20 54 4f 20 |OP HIT [|ESC] TO |
|000045d0| 43 48 41 54 22 0d 0a 31 | 32 37 30 20 43 41 3d 31 |CHAT"..1|270 CA=1|
|000045e0| 3a 53 57 3d 30 3a 49 4e | 3d 31 3a 41 3d 43 48 52 |:SW=0:IN|=1:A=CHR|
|000045f0| 24 28 37 29 2b 22 2e 22 | 3a 43 52 3d 31 3a 43 41 |$(7)+"."|:CR=1:CA|
|00004600| 4c 4c 20 49 4f 2e 4f 3a | 53 4f 55 4e 44 20 33 32 |LL IO.O:|SOUND 32|
|00004610| 37 36 37 2c 31 38 3a 49 | 46 20 54 46 20 54 48 45 |767,18:I|F TF THE|
|00004620| 4e 20 49 4e 3d 30 3a 43 | 41 3d 30 3a 47 4f 54 4f |N IN=0:C|A=0:GOTO|
|00004630| 20 36 33 30 0d 0a 31 32 | 38 30 20 49 46 20 53 57 | 630..12|80 IF SW|
|00004640| 3d 30 20 54 48 45 4e 20 | 31 32 37 30 0d 0a 31 32 |=0 THEN |1270..12|
|00004650| 39 30 20 54 35 21 3d 54 | 32 21 3a 54 34 21 3d 54 |90 T5!=T|2!:T4!=T|
|00004660| 49 4d 45 52 3a 49 4e 3d | 30 3a 43 41 4c 4c 20 49 |IMER:IN=|0:CALL I|
|00004670| 4f 2e 4f 3a 41 3d 22 43 | 68 61 74 20 4d 6f 64 65 |O.O:A="C|hat Mode|
|00004680| 2e 2e 22 3a 43 41 4c 4c | 20 49 4f 2e 4f 0d 0a 31 |..":CALL| IO.O..1|
|00004690| 33 30 30 20 54 32 21 3d | 54 49 4d 45 52 3a 46 47 |300 T2!=|TIMER:FG|
|000046a0| 3d 33 32 37 36 37 3a 43 | 41 4c 4c 20 49 4f 2e 49 |=32767:C|ALL IO.I|
|000046b0| 3a 49 46 20 53 57 20 54 | 48 45 4e 20 31 33 30 30 |:IF SW T|HEN 1300|
|000046c0| 0d 0a 31 33 31 30 20 54 | 32 21 3d 54 35 21 2b 46 |..1310 T|2!=T5!+F|
|000046d0| 49 58 28 54 49 4d 45 52 | 2d 54 34 21 29 3a 53 57 |IX(TIMER|-T4!):SW|
|000046e0| 3d 30 3a 43 41 3d 30 3a | 43 41 4c 4c 20 49 4f 2e |=0:CA=0:|CALL IO.|
|000046f0| 4f 3a 47 4f 54 4f 20 36 | 33 30 0d 0a 31 33 32 30 |O:GOTO 6|30..1320|
|00004700| 20 43 4c 4f 53 45 20 31 | 3a 4f 50 45 4e 20 22 52 | CLOSE 1|:OPEN "R|
|00004710| 22 2c 31 2c 22 53 4f 52 | 54 22 2c 34 3a 46 49 45 |",1,"SOR|T",4:FIE|
|00004720| 4c 44 20 31 2c 32 20 41 | 53 20 53 52 54 31 24 2c |LD 1,2 A|S SRT1$,|
|00004730| 32 20 41 53 20 53 52 54 | 32 24 3a 46 49 45 4c 44 |2 AS SRT|2$:FIELD|
|00004740| 20 31 2c 34 20 41 53 20 | 53 52 54 33 24 3a 46 4f | 1,4 AS |SRT3$:FO|
|00004750| 52 20 4c 50 3d 31 20 54 | 4f 20 31 30 3a 4c 53 45 |R LP=1 T|O 10:LSE|
|00004760| 54 20 53 52 54 31 24 3d | 4d 4b 49 24 28 30 29 3a |T SRT1$=|MKI$(0):|
|00004770| 4c 53 45 54 20 53 52 54 | 32 24 3d 4d 4b 49 24 28 |LSET SRT|2$=MKI$(|
|00004780| 30 29 3a 50 55 54 20 31 | 2c 4c 50 3a 4e 45 58 54 |0):PUT 1|,LP:NEXT|
|00004790| 0d 0a 31 33 33 30 20 4c | 50 3d 30 3a 46 4f 52 20 |..1330 L|P=0:FOR |
|000047a0| 53 58 3d 31 20 54 4f 20 | 4c 4f 46 28 33 29 2f 32 |SX=1 TO |LOF(3)/2|
|000047b0| 35 36 3a 47 45 54 20 33 | 2c 53 58 3a 49 46 20 4c |56:GET 3|,SX:IF L|
|000047c0| 45 46 54 24 28 41 4e 2c | 38 29 3c 3e 22 5a 5a 5a |EFT$(AN,|8)<>"ZZZ|
|000047d0| 5a 5a 4e 55 4c 22 41 4e | 44 20 56 41 4c 28 4c 43 |ZZNUL"AN|D VAL(LC|
|000047e0| 4b 24 29 3d 30 20 41 4e | 44 20 43 56 49 28 42 34 |K$)=0 AN|D CVI(B4|
|000047f0| 29 3e 31 20 54 48 45 4e | 20 4c 50 3d 4c 50 2b 31 |)>1 THEN| LP=LP+1|
|00004800| 3a 4c 53 45 54 20 53 52 | 54 31 24 3d 42 34 3a 4c |:LSET SR|T1$=B4:L|
|00004810| 53 45 54 20 53 52 54 32 | 24 3d 4d 4b 49 24 28 53 |SET SRT2|$=MKI$(S|
|00004820| 58 29 3a 50 55 54 20 31 | 2c 4c 50 0d 0a 31 33 34 |X):PUT 1|,LP..134|
|00004830| 30 20 4e 45 58 54 3a 46 | 4f 52 20 4c 50 3d 31 20 |0 NEXT:F|OR LP=1 |
|00004840| 54 4f 20 4c 4f 46 28 31 | 29 2f 34 3a 46 4f 52 20 |TO LOF(1|)/4:FOR |
|00004850| 4c 4e 3d 4c 50 2b 31 20 | 54 4f 20 31 30 3a 47 45 |LN=LP+1 |TO 10:GE|
|00004860| 54 20 31 2c 4c 50 3a 4c | 3d 43 56 49 28 53 52 54 |T 1,LP:L|=CVI(SRT|
|00004870| 31 24 29 3a 41 4c 3d 53 | 52 54 33 24 3a 47 45 54 |1$):AL=S|RT3$:GET|
|00004880| 20 31 2c 4c 4e 3a 49 46 | 20 4c 3c 43 56 49 28 53 | 1,LN:IF| L<CVI(S|
|00004890| 52 54 31 24 29 54 48 45 | 4e 20 41 49 3d 53 52 54 |RT1$)THE|N AI=SRT|
|000048a0| 33 24 3a 4c 53 45 54 20 | 53 52 54 33 24 3d 41 4c |3$:LSET |SRT3$=AL|
|000048b0| 3a 50 55 54 20 31 2c 4c | 4e 3a 47 45 54 20 31 2c |:PUT 1,L|N:GET 1,|
|000048c0| 4c 50 3a 4c 53 45 54 20 | 53 52 54 33 24 3d 41 49 |LP:LSET |SRT3$=AI|
|000048d0| 3a 50 55 54 20 31 2c 4c | 50 0d 0a 31 33 35 30 20 |:PUT 1,L|P..1350 |
|000048e0| 4e 45 58 54 3a 4e 45 58 | 54 3a 41 3d 22 54 6f 70 |NEXT:NEX|T:A="Top|
|000048f0| 20 74 65 6e 20 75 73 65 | 72 73 2e 2e 2e 22 3a 43 | ten use|rs...":C|
|00004900| 41 4c 4c 20 49 4f 2e 4f | 3a 46 4f 52 20 4c 50 3d |ALL IO.O|:FOR LP=|
|00004910| 31 20 54 4f 20 31 30 3a | 47 45 54 20 31 2c 4c 50 |1 TO 10:|GET 1,LP|
|00004920| 3a 4c 51 3d 43 56 49 28 | 53 52 54 32 24 29 3a 49 |:LQ=CVI(|SRT2$):I|
|00004930| 46 20 4c 51 3d 30 20 54 | 48 45 4e 20 31 33 38 30 |F LQ=0 T|HEN 1380|
|00004940| 0d 0a 31 33 36 30 20 47 | 45 54 20 33 2c 4c 51 3a |..1360 G|ET 3,LQ:|
|00004950| 4c 4e 3d 43 56 49 28 42 | 34 29 3a 41 3d 41 4e 2b |LN=CVI(B|4):A=AN+|
|00004960| 22 20 4c 76 6c 3a 22 2b | 53 54 52 24 28 4c 4e 29 |" Lvl:"+|STR$(LN)|
|00004970| 3a 49 46 20 4c 4e 3e 39 | 20 54 48 45 4e 20 41 3d |:IF LN>9| THEN A=|
|00004980| 41 2b 22 20 20 20 22 2b | 41 32 20 45 4c 53 45 20 |A+"   "+|A2 ELSE |
|00004990| 41 3d 41 2b 22 20 20 20 | 20 22 2b 41 32 0d 0a 31 |A=A+"   | "+A2..1|
|000049a0| 33 37 30 20 43 41 4c 4c | 20 49 4f 2e 4f 0d 0a 31 |370 CALL| IO.O..1|
|000049b0| 33 38 30 20 4e 45 58 54 | 3a 43 4c 4f 53 45 20 31 |380 NEXT|:CLOSE 1|
|000049c0| 3a 4b 49 4c 4c 22 53 4f | 52 54 22 3a 47 4f 54 4f |:KILL"SO|RT":GOTO|
|000049d0| 20 36 33 30 0d 0a 31 33 | 39 30 20 41 3d 22 59 6f | 630..13|90 A="Yo|
|000049e0| 75 20 65 61 74 20 66 6f | 72 20 61 20 77 68 69 6c |u eat fo|r a whil|
|000049f0| 65 2e 2e 2e 22 3a 47 4f | 54 4f 20 35 32 30 0d 0a |e...":GO|TO 520..|
|00004a00| 31 34 30 30 20 41 3d 22 | 59 6f 75 20 63 61 6e 27 |1400 A="|You can'|
|00004a10| 74 20 65 61 74 20 74 68 | 61 74 21 22 3a 47 4f 54 |t eat th|at!":GOT|
|00004a20| 4f 20 35 32 30 0d 0a 31 | 34 31 30 20 41 3d 22 4e |O 520..1|410 A="N|
|00004a30| 6f 74 68 69 6e 67 20 68 | 61 70 70 65 6e 65 64 2e |othing h|appened.|
|00004a40| 2e 22 3a 47 4f 54 4f 20 | 35 32 30 0d 0a 31 34 32 |.":GOTO |520..142|
|00004a50| 30 20 47 4f 53 55 42 20 | 37 30 31 30 3a 49 46 20 |0 GOSUB |7010:IF |
|00004a60| 54 45 3d 30 20 54 48 45 | 4e 20 47 4f 53 55 42 20 |TE=0 THE|N GOSUB |
|00004a70| 37 30 35 30 3a 49 46 20 | 54 45 3d 30 20 54 48 45 |7050:IF |TE=0 THE|
|00004a80| 4e 20 47 4f 53 55 42 20 | 37 30 39 30 3a 49 46 20 |N GOSUB |7090:IF |
|00004a90| 4c 3d 30 20 54 48 45 4e | 20 41 3d 22 59 6f 75 20 |L=0 THEN| A="You |
|00004aa0| 63 61 6e 27 74 20 6d 6f | 76 65 20 74 68 61 74 21 |can't mo|ve that!|
|00004ab0| 22 3a 47 4f 54 4f 20 35 | 32 30 0d 0a 31 34 33 30 |":GOTO 5|20..1430|
|00004ac0| 20 41 3d 22 59 6f 75 20 | 6d 6f 76 65 20 69 74 20 | A="You |move it |
|00004ad0| 61 72 6f 75 6e 64 2e 2e | 2e 22 3a 47 4f 54 4f 20 |around..|.":GOTO |
|00004ae0| 35 32 30 0d 0a 31 34 34 | 30 20 47 4f 53 55 42 20 |520..144|0 GOSUB |
|00004af0| 37 30 39 30 3a 49 46 20 | 4c 3d 30 20 54 48 45 4e |7090:IF |L=0 THEN|
|00004b00| 20 41 3d 22 59 6f 75 20 | 63 61 6e 27 74 20 74 61 | A="You |can't ta|
|00004b10| 6c 6b 20 74 6f 20 74 68 | 61 74 21 22 3a 47 4f 54 |lk to th|at!":GOT|
|00004b20| 4f 20 35 32 30 0d 0a 31 | 34 35 30 20 47 45 54 20 |O 520..1|450 GET |
|00004b30| 39 2c 52 4d 3a 49 46 20 | 43 56 49 28 4b 54 52 24 |9,RM:IF |CVI(KTR$|
|00004b40| 29 54 48 45 4e 20 41 3d | 22 41 73 20 79 6f 75 20 |)THEN A=|"As you |
|00004b50| 62 65 67 69 6e 20 74 6f | 20 73 70 65 61 6b 2c 20 |begin to| speak, |
|00004b60| 22 3a 41 41 3d 22 54 68 | 65 20 6d 6f 6e 73 74 65 |":AA="Th|e monste|
|00004b70| 72 20 68 69 74 73 20 79 | 6f 75 20 66 6f 72 20 22 |r hits y|ou for "|
|00004b80| 3a 47 4f 53 55 42 20 36 | 31 39 30 3a 49 46 20 4c |:GOSUB 6|190:IF L|
|00004b90| 4e 20 54 48 45 4e 20 35 | 33 30 0d 0a 31 34 36 30 |N THEN 5|30..1460|
|00004ba0| 20 49 46 20 43 56 49 28 | 46 54 52 24 29 54 48 45 | IF CVI(|FTR$)THE|
|00004bb0| 4e 20 4e 24 3d 53 54 52 | 24 28 43 56 49 28 46 54 |N N$=STR|$(CVI(FT|
|00004bc0| 52 24 29 29 3a 41 3d 22 | 54 68 65 20 6d 6f 6e 73 |R$)):A="|The mons|
|00004bd0| 74 65 72 20 74 65 6c 65 | 70 6f 72 74 73 20 79 6f |ter tele|ports yo|
|00004be0| 75 20 65 6c 73 65 77 68 | 65 72 65 21 22 3a 43 41 |u elsewh|ere!":CA|
|00004bf0| 4c 4c 20 49 4f 2e 4f 3a | 47 4f 54 4f 20 32 31 36 |LL IO.O:|GOTO 216|
|00004c00| 30 0d 0a 31 34 37 30 20 | 41 3d 22 54 68 65 20 6d |0..1470 |A="The m|
|00004c10| 6f 6e 73 74 65 72 20 6d | 61 6b 65 73 20 6e 6f 20 |onster m|akes no |
|00004c20| 72 65 73 70 6f 6e 73 65 | 2e 2e 22 3a 47 4f 54 4f |response|..":GOTO|
|00004c30| 20 35 32 30 0d 0a 31 34 | 38 30 20 49 46 20 52 4d | 520..14|80 IF RM|
|00004c40| 3e 30 20 54 48 45 4e 20 | 47 45 54 20 35 2c 52 4d |>0 THEN |GET 5,RM|
|00004c50| 0d 0a 31 34 39 30 20 5a | 39 3d 43 56 49 28 41 45 |..1490 Z|9=CVI(AE|
|00004c60| 28 44 37 29 29 3a 49 46 | 20 5a 39 3d 30 20 54 48 |(D7)):IF| Z9=0 TH|
|00004c70| 45 4e 20 49 46 20 43 32 | 3d 37 20 4f 52 20 4c 4d |EN IF C2|=7 OR LM|
|00004c80| 20 54 48 45 4e 20 47 4f | 53 55 42 20 36 38 33 30 | THEN GO|SUB 6830|
|00004c90| 3a 49 46 20 44 49 3d 31 | 20 54 48 45 4e 20 32 31 |:IF DI=1| THEN 21|
|00004ca0| 30 20 45 4c 53 45 20 35 | 33 30 20 45 4c 53 45 20 |0 ELSE 5|30 ELSE |
|00004cb0| 41 3d 22 59 6f 75 20 63 | 61 6e 27 74 20 67 6f 20 |A="You c|an't go |
|00004cc0| 69 6e 20 74 68 61 74 20 | 64 69 72 65 63 74 69 6f |in that |directio|
|00004cd0| 6e 21 22 3a 47 4f 54 4f | 20 35 32 30 0d 0a 31 35 |n!":GOTO| 520..15|
|00004ce0| 30 30 20 41 49 32 3d 22 | 20 66 6f 6c 6c 6f 77 73 |00 AI2="| follows|
|00004cf0| 20 79 6f 75 21 22 0d 0a | 31 35 31 30 20 46 4f 52 | you!"..|1510 FOR|
|00004d00| 20 4c 50 3d 31 20 54 4f | 20 32 30 3a 49 46 20 43 | LP=1 TO| 20:IF C|
|00004d10| 56 49 28 41 46 28 4c 50 | 29 29 3c 30 20 54 48 45 |VI(AF(LP|))<0 THE|
|00004d20| 4e 20 47 45 54 20 38 2c | 41 42 53 28 43 56 49 28 |N GET 8,|ABS(CVI(|
|00004d30| 41 46 28 4c 50 29 29 29 | 3a 49 46 20 56 41 4c 28 |AF(LP)))|:IF VAL(|
|00004d40| 42 58 29 3d 30 20 54 48 | 45 4e 20 4c 53 45 54 20 |BX)=0 TH|EN LSET |
|00004d50| 41 46 28 4c 50 29 3d 4d | 4b 49 24 28 30 29 3a 4c |AF(LP)=M|KI$(0):L|
|00004d60| 53 45 54 20 41 47 28 4c | 50 29 3d 4d 4b 49 24 28 |SET AG(L|P)=MKI$(|
|00004d70| 30 29 0d 0a 31 35 32 30 | 20 4e 45 58 54 3a 50 55 |0)..1520| NEXT:PU|
|00004d80| 54 20 35 2c 52 4d 3a 5a | 38 3d 52 4d 3a 49 46 20 |T 5,RM:Z|8=RM:IF |
|00004d90| 5a 39 3c 31 20 4f 52 20 | 5a 39 3e 4c 4f 46 28 35 |Z9<1 OR |Z9>LOF(5|
|00004da0| 29 2f 34 37 30 20 54 48 | 45 4e 20 5a 39 3d 52 4d |)/470 TH|EN Z9=RM|
|00004db0| 3a 5a 38 3d 30 0d 0a 31 | 35 33 30 20 52 4d 3d 5a |:Z8=0..1|530 RM=Z|
|00004dc0| 39 3a 41 4c 33 3d 41 44 | 28 31 29 3a 46 4f 52 20 |9:AL3=AD|(1):FOR |
|00004dd0| 4c 50 3d 31 20 54 4f 20 | 31 30 3a 41 44 28 4c 50 |LP=1 TO |10:AD(LP|
|00004de0| 29 3d 22 22 3a 4e 45 58 | 54 3a 4e 4d 3d 30 3a 47 |)="":NEX|T:NM=0:G|
|00004df0| 45 54 20 35 2c 52 4d 3a | 47 4f 53 55 42 20 36 35 |ET 5,RM:|GOSUB 65|
|00004e00| 36 30 3a 47 45 54 20 39 | 2c 52 4d 3a 48 52 54 3d |60:GET 9|,RM:HRT=|
|00004e10| 33 3a 45 52 54 3d 35 3a | 49 46 20 43 56 49 28 53 |3:ERT=5:|IF CVI(S|
|00004e20| 54 50 24 29 4f 52 20 43 | 56 49 28 4d 54 52 24 29 |TP$)OR C|VI(MTR$)|
|00004e30| 54 48 45 4e 20 31 35 35 | 30 0d 0a 31 35 34 30 20 |THEN 155|0..1540 |
|00004e40| 41 3d 22 41 73 20 79 6f | 75 20 65 6e 74 65 72 20 |A="As yo|u enter |
|00004e50| 74 68 65 20 72 6f 6f 6d | 2c 22 3a 41 41 3d 22 59 |the room|,":AA="Y|
|00004e60| 6f 75 20 61 72 65 20 68 | 69 74 20 66 6f 72 20 22 |ou are h|it for "|
|00004e70| 3a 47 4f 53 55 42 20 36 | 31 39 30 0d 0a 31 35 35 |:GOSUB 6|190..155|
|00004e80| 30 20 49 46 20 5a 58 28 | 31 29 3c 30 20 4f 52 20 |0 IF ZX(|1)<0 OR |
|00004e90| 52 4e 44 3e 2e 35 20 4f | 52 20 41 4c 33 3d 22 22 |RND>.5 O|R AL3=""|
|00004ea0| 4f 52 20 52 4d 3d 54 53 | 28 39 29 54 48 45 4e 20 |OR RM=TS|(9)THEN |
|00004eb0| 46 4f 52 20 4c 50 3d 31 | 20 54 4f 20 32 30 3a 46 |FOR LP=1| TO 20:F|
|00004ec0| 4f 52 20 4c 4e 3d 31 20 | 54 4f 20 35 3a 43 5a 28 |OR LN=1 |TO 5:CZ(|
|00004ed0| 4c 50 2c 4c 4e 29 3d 30 | 3a 4e 45 58 54 3a 4e 45 |LP,LN)=0|:NEXT:NE|
|00004ee0| 58 54 3a 47 4f 53 55 42 | 20 35 36 38 30 3a 47 4f |XT:GOSUB| 5680:GO|
|00004ef0| 54 4f 20 32 31 30 0d 0a | 31 35 36 30 20 4e 4d 3d |TO 210..|1560 NM=|
|00004f00| 31 3a 41 44 28 31 29 3d | 41 4c 33 0d 0a 31 35 37 |1:AD(1)=|AL3..157|
|00004f10| 30 20 41 3d 22 54 68 65 | 20 22 2b 41 44 28 31 29 |0 A="The| "+AD(1)|
|00004f20| 2b 41 49 32 3a 43 41 4c | 4c 20 49 4f 2e 4f 3a 49 |+AI2:CAL|L IO.O:I|
|00004f30| 46 20 5a 38 20 54 48 45 | 4e 20 47 45 54 20 35 2c |F Z8 THE|N GET 5,|
|00004f40| 5a 38 3a 49 46 20 43 56 | 49 28 4d 4e 24 29 54 48 |Z8:IF CV|I(MN$)TH|
|00004f50| 45 4e 20 4c 53 45 54 20 | 4d 4e 24 3d 4d 4b 49 24 |EN LSET |MN$=MKI$|
|00004f60| 28 30 29 3a 50 55 54 20 | 35 2c 5a 38 3a 47 45 54 |(0):PUT |5,Z8:GET|
|00004f70| 20 35 2c 52 4d 3a 4c 53 | 45 54 20 4d 4e 24 3d 4d | 5,RM:LS|ET MN$=M|
|00004f80| 4b 49 24 28 5a 38 28 31 | 29 29 3a 50 55 54 20 35 |KI$(Z8(1|)):PUT 5|
|00004f90| 2c 52 4d 3a 5a 38 3d 30 | 0d 0a 31 35 38 30 20 47 |,RM:Z8=0|..1580 G|
|00004fa0| 4f 54 4f 20 32 31 30 0d | 0a 31 35 39 30 20 47 4f |OTO 210.|.1590 GO|
|00004fb0| 53 55 42 20 37 30 35 30 | 3a 49 46 20 54 45 3c 30 |SUB 7050|:IF TE<0|
|00004fc0| 20 54 48 45 4e 20 31 36 | 31 30 0d 0a 31 36 30 30 | THEN 16|10..1600|
|00004fd0| 20 41 3d 22 59 6f 75 20 | 63 61 6e 27 74 20 64 72 | A="You |can't dr|
|00004fe0| 69 6e 6b 20 74 68 61 74 | 21 22 3a 47 4f 54 4f 20 |ink that|!":GOTO |
|00004ff0| 35 32 30 0d 0a 31 36 31 | 30 20 49 46 20 56 41 4c |520..161|0 IF VAL|
|00005000| 28 5a 5a 24 29 3d 30 20 | 54 48 45 4e 20 31 36 30 |(ZZ$)=0 |THEN 160|
|00005010| 30 0d 0a 31 36 32 30 20 | 47 45 54 20 34 2c 56 41 |0..1620 |GET 4,VA|
|00005020| 4c 28 42 4e 29 3a 49 46 | 20 54 5a 28 4c 29 3c 3d |L(BN):IF| TZ(L)<=|
|00005030| 30 20 54 48 45 4e 20 31 | 36 30 30 20 45 4c 53 45 |0 THEN 1|600 ELSE|
|00005040| 20 54 5a 28 4c 29 3d 30 | 3a 4d 46 3d 30 3a 4d 49 | TZ(L)=0|:MF=0:MI|
|00005050| 3d 56 41 4c 28 41 34 29 | 3a 41 3d 22 4f 6b 22 3a |=VAL(A4)|:A="Ok":|
|00005060| 43 41 4c 4c 20 49 4f 2e | 4f 3a 47 4f 54 4f 20 32 |CALL IO.|O:GOTO 2|
|00005070| 39 32 30 0d 0a 31 36 33 | 30 20 47 4f 53 55 42 20 |920..163|0 GOSUB |
|00005080| 37 30 31 30 3a 49 46 20 | 54 45 3c 3d 30 20 54 48 |7010:IF |TE<=0 TH|
|00005090| 45 4e 20 47 4f 53 55 42 | 20 37 30 35 30 3a 49 46 |EN GOSUB| 7050:IF|
|000050a0| 20 54 45 3c 3d 30 20 54 | 48 45 4e 20 41 3d 22 59 | TE<=0 T|HEN A="Y|
|000050b0| 6f 75 20 63 61 6e 27 74 | 20 67 6f 20 74 68 65 72 |ou can't| go ther|
|000050c0| 65 21 22 3a 47 4f 54 4f | 20 35 32 30 3a 20 45 4c |e!":GOTO| 520: EL|
|000050d0| 53 45 20 4c 50 3d 54 58 | 28 4c 29 20 45 4c 53 45 |SE LP=TX|(L) ELSE|
|000050e0| 20 4c 50 3d 43 56 49 28 | 41 46 28 4c 29 29 0d 0a | LP=CVI(|AF(L))..|
|000050f0| 31 36 34 30 20 47 45 54 | 20 36 2c 4c 50 3a 49 46 |1640 GET| 6,LP:IF|
|00005100| 20 56 41 4c 28 41 55 29 | 3c 3d 30 20 54 48 45 4e | VAL(AU)|<=0 THEN|
|00005110| 20 41 3d 22 59 6f 75 20 | 63 61 6e 27 74 20 67 6f | A="You |can't go|
|00005120| 20 74 68 65 72 65 21 22 | 3a 47 4f 54 4f 20 35 32 | there!"|:GOTO 52|
|00005130| 30 0d 0a 31 36 35 30 20 | 49 46 20 56 41 4c 28 54 |0..1650 |IF VAL(T|
|00005140| 56 24 29 54 48 45 4e 20 | 41 3d 22 54 72 61 70 70 |V$)THEN |A="Trapp|
|00005150| 65 64 20 70 6f 72 74 61 | 6c 21 22 3a 47 4f 54 4f |ed porta|l!":GOTO|
|00005160| 20 35 32 30 0d 0a 31 36 | 36 30 20 49 46 20 41 5a | 520..16|60 IF AZ|
|00005170| 3d 22 54 22 54 48 45 4e | 20 41 3d 22 59 6f 75 20 |="T"THEN| A="You |
|00005180| 63 61 6e 27 74 2c 20 69 | 74 27 73 20 63 6c 6f 73 |can't, i|t's clos|
|00005190| 65 64 21 22 3a 47 4f 54 | 4f 20 35 32 30 0d 0a 31 |ed!":GOT|O 520..1|
|000051a0| 36 37 30 20 49 46 20 56 | 41 4c 28 5a 44 24 29 54 |670 IF V|AL(ZD$)T|
|000051b0| 48 45 4e 20 4c 53 45 54 | 20 41 59 3d 22 32 22 3a |HEN LSET| AY="2":|
|000051c0| 4c 53 45 54 20 41 5a 3d | 22 54 22 3a 50 55 54 20 |LSET AZ=|"T":PUT |
|000051d0| 36 2c 54 45 0d 0a 31 36 | 38 30 20 4e 4d 3d 30 3a |6,TE..16|80 NM=0:|
|000051e0| 5a 39 3d 56 41 4c 28 41 | 55 29 3a 47 4f 53 55 42 |Z9=VAL(A|U):GOSUB|
|000051f0| 20 36 35 36 30 3a 47 4f | 54 4f 20 31 35 30 30 0d | 6560:GO|TO 1500.|
|00005200| 0a 31 36 39 30 20 44 37 | 3d 30 3a 46 4f 52 20 4c |.1690 D7|=0:FOR L|
|00005210| 3d 31 20 54 4f 20 37 3a | 49 46 20 43 56 49 28 41 |=1 TO 7:|IF CVI(A|
|00005220| 45 28 4c 29 29 20 54 48 | 45 4e 20 44 37 3d 4c 3a |E(L)) TH|EN D7=L:|
|00005230| 4c 3d 37 0d 0a 31 37 30 | 30 20 4e 45 58 54 3a 49 |L=7..170|0 NEXT:I|
|00005240| 46 20 44 37 3d 30 20 54 | 48 45 4e 20 41 3d 22 54 |F D7=0 T|HEN A="T|
|00005250| 68 65 72 65 20 69 73 20 | 6e 6f 77 68 65 72 65 20 |here is |nowhere |
|00005260| 74 6f 20 72 75 6e 21 22 | 3a 47 4f 54 4f 20 35 32 |to run!"|:GOTO 52|
|00005270| 30 0d 0a 31 37 31 30 20 | 44 37 3d 4c 3a 41 3d 22 |0..1710 |D7=L:A="|
|00005280| 59 6f 75 20 72 75 6e 20 | 61 77 61 79 20 6c 69 6b |You run |away lik|
|00005290| 65 20 61 20 73 63 72 65 | 61 6d 69 6e 67 20 6d 61 |e a scre|aming ma|
|000052a0| 64 6d 61 6e 21 22 3a 43 | 41 4c 4c 20 49 4f 2e 4f |dman!":C|ALL IO.O|
|000052b0| 3a 47 4f 54 4f 20 31 34 | 38 30 0d 0a 31 37 32 30 |:GOTO 14|80..1720|
|000052c0| 20 4c 4e 3d 31 3a 46 4f | 52 20 4c 3d 31 20 54 4f | LN=1:FO|R L=1 TO|
|000052d0| 20 32 30 3a 49 46 20 43 | 56 49 28 41 46 28 4c 29 | 20:IF C|VI(AF(L)|
|000052e0| 29 3c 3d 30 20 54 48 45 | 4e 20 31 37 37 30 0d 0a |)<=0 THE|N 1770..|
|000052f0| 31 37 33 30 20 47 45 54 | 20 36 2c 43 56 49 28 41 |1730 GET| 6,CVI(A|
|00005300| 46 28 4c 29 29 3a 49 46 | 20 41 58 3c 3e 22 54 22 |F(L)):IF| AX<>"T"|
|00005310| 54 48 45 4e 20 31 37 37 | 30 0d 0a 31 37 34 30 20 |THEN 177|0..1740 |
|00005320| 41 49 3d 41 4a 3a 47 4f | 53 55 42 20 36 37 38 30 |AI=AJ:GO|SUB 6780|
|00005330| 3a 41 3d 22 59 6f 75 20 | 66 69 6e 64 20 22 2b 41 |:A="You |find "+A|
|00005340| 49 2b 22 20 5b 69 6e 76 | 5d 22 3a 4c 4e 3d 30 3a |I+" [inv|]":LN=0:|
|00005350| 49 46 20 56 41 4c 28 41 | 59 29 3e 31 20 54 48 45 |IF VAL(A|Y)>1 THE|
|00005360| 4e 20 41 3d 41 2b 22 20 | 5b 6c 6f 63 6b 65 64 5d |N A=A+" |[locked]|
|00005370| 22 0d 0a 31 37 35 30 20 | 49 46 20 56 41 4c 28 41 |"..1750 |IF VAL(A|
|00005380| 59 29 3d 31 20 41 4e 44 | 20 41 5a 3d 22 54 22 54 |Y)=1 AND| AZ="T"T|
|00005390| 48 45 4e 20 41 3d 41 2b | 22 20 5b 63 6c 6f 73 65 |HEN A=A+|" [close|
|000053a0| 64 5d 22 0d 0a 31 37 36 | 30 20 43 41 4c 4c 20 49 |d]"..176|0 CALL I|
|000053b0| 4f 2e 4f 0d 0a 31 37 37 | 30 20 4e 45 58 54 3a 49 |O.O..177|0 NEXT:I|
|000053c0| 46 20 4c 4e 20 54 48 45 | 4e 20 41 3d 22 59 6f 75 |F LN THE|N A="You|
|000053d0| 20 66 69 6e 64 20 6e 6f | 74 68 69 6e 67 2e 2e 22 | find no|thing.."|
|000053e0| 3a 47 4f 54 4f 20 35 32 | 30 0d 0a 31 37 38 30 20 |:GOTO 52|0..1780 |
|000053f0| 47 4f 54 4f 20 35 33 30 | 0d 0a 31 37 39 30 20 47 |GOTO 530|..1790 G|
|00005400| 4f 53 55 42 20 31 38 30 | 30 3a 50 55 54 20 33 2c |OSUB 180|0:PUT 3,|
|00005410| 55 58 3a 41 3d 22 50 6c | 61 79 65 72 20 66 69 6c |UX:A="Pl|ayer fil|
|00005420| 65 20 75 70 64 61 74 65 | 64 2e 22 3a 47 4f 54 4f |e update|d.":GOTO|
|00005430| 20 35 32 30 0d 0a 31 38 | 30 30 20 47 45 54 20 33 | 520..18|00 GET 3|
|00005440| 2c 55 58 0d 0a 31 38 31 | 30 20 4c 53 45 54 20 41 |,UX..181|0 LSET A|
|00005450| 4e 3d 41 4f 3a 4c 53 45 | 54 20 50 53 24 3d 41 46 |N=AO:LSE|T PS$=AF|
|00005460| 3a 4c 53 45 54 20 41 32 | 3d 41 4d 3a 4c 53 45 54 |:LSET A2|=AM:LSET|
|00005470| 20 41 31 3d 52 49 47 48 | 54 24 28 53 54 52 24 28 | A1=RIGH|T$(STR$(|
|00005480| 43 32 29 2c 31 29 3a 46 | 4f 52 20 4c 3d 31 20 54 |C2),1):F|OR L=1 T|
|00005490| 4f 20 36 3a 4c 53 45 54 | 20 41 32 28 4c 29 3d 4d |O 6:LSET| A2(L)=M|
|000054a0| 4b 49 24 28 46 34 28 4c | 29 29 3a 4e 45 58 54 3a |KI$(F4(L|)):NEXT:|
|000054b0| 4c 53 45 54 20 52 4f 24 | 3d 4d 4b 49 24 28 52 4d |LSET RO$|=MKI$(RM|
|000054c0| 29 3a 4c 53 45 54 20 42 | 34 3d 4d 4b 49 24 28 4c |):LSET B|4=MKI$(L|
|000054d0| 46 29 3a 4c 53 45 54 20 | 41 39 3d 4d 4b 44 24 28 |F):LSET |A9=MKD$(|
|000054e0| 58 50 23 29 3a 4c 53 45 | 54 20 42 54 3d 4d 4b 44 |XP#):LSE|T BT=MKD|
|000054f0| 24 28 47 47 23 29 3a 4c | 53 45 54 20 42 39 3d 4d |$(GG#):L|SET B9=M|
|00005500| 4b 49 24 28 46 31 29 3a | 4c 53 45 54 20 42 43 3d |KI$(F1):|LSET BC=|
|00005510| 4d 4b 49 24 28 46 32 29 | 0d 0a 31 38 32 30 20 4c |MKI$(F2)|..1820 L|
|00005520| 53 45 54 20 56 34 24 3d | 4d 4b 49 24 28 56 31 29 |SET V4$=|MKI$(V1)|
|00005530| 3a 4c 53 45 54 20 56 35 | 24 3d 4d 4b 49 24 28 56 |:LSET V5|$=MKI$(V|
|00005540| 32 29 3a 4c 53 45 54 20 | 42 52 3d 4d 4b 49 24 28 |2):LSET |BR=MKI$(|
|00005550| 4d 59 29 3a 4c 53 45 54 | 20 42 50 3d 4d 4b 49 24 |MY):LSET| BP=MKI$|
|00005560| 28 4d 32 29 3a 4c 53 45 | 54 20 42 5a 3d 53 54 52 |(M2):LSE|T BZ=STR|
|00005570| 24 28 50 49 29 3a 4c 53 | 45 54 20 42 48 3d 53 54 |$(PI):LS|ET BH=ST|
|00005580| 52 24 28 49 34 29 3a 4c | 53 45 54 20 4c 52 24 3d |R$(I4):L|SET LR$=|
|00005590| 53 54 52 24 28 4c 52 29 | 3a 49 46 20 41 43 3c 3e |STR$(LR)|:IF AC<>|
|000055a0| 44 41 54 45 24 20 54 48 | 45 4e 20 47 4f 53 55 42 |DATE$ TH|EN GOSUB|
|000055b0| 20 37 31 39 30 0d 0a 31 | 38 33 30 20 4c 53 45 54 | 7190..1|830 LSET|
|000055c0| 20 41 44 3d 4d 4b 44 24 | 28 5a 31 23 29 3a 4c 53 | AD=MKD$|(Z1#):LS|
|000055d0| 45 54 20 41 43 3d 44 41 | 54 45 24 3a 4c 53 45 54 |ET AC=DA|TE$:LSET|
|000055e0| 20 42 31 3d 52 49 47 48 | 54 24 28 53 54 52 24 28 | B1=RIGH|T$(STR$(|
|000055f0| 43 38 29 2c 31 29 3a 46 | 4f 52 20 4c 50 3d 31 20 |C8),1):F|OR LP=1 |
|00005600| 54 4f 20 32 30 3a 4c 53 | 45 54 20 41 43 28 4c 50 |TO 20:LS|ET AC(LP|
|00005610| 29 3d 4d 4b 49 24 28 54 | 58 28 4c 50 29 29 3a 4c |)=MKI$(T|X(LP)):L|
|00005620| 53 45 54 20 41 48 28 4c | 50 29 3d 4d 4b 49 24 28 |SET AH(L|P)=MKI$(|
|00005630| 54 5a 28 4c 50 29 29 3a | 4e 45 58 54 3a 52 45 54 |TZ(LP)):|NEXT:RET|
|00005640| 55 52 4e 0d 0a 31 38 34 | 30 20 41 3d 22 49 6e 66 |URN..184|0 A="Inf|
|00005650| 6f 72 6d 61 74 69 6f 6e | 3a 20 22 2b 41 4f 3a 43 |ormation|: "+AO:C|
|00005660| 41 4c 4c 20 49 4f 2e 4f | 3a 41 3d 22 59 6f 75 20 |ALL IO.O|:A="You |
|00005670| 61 72 65 20 61 20 6c 65 | 76 65 6c 22 3a 49 46 20 |are a le|vel":IF |
|00005680| 4c 46 3e 31 30 20 54 48 | 45 4e 20 41 3d 41 2b 53 |LF>10 TH|EN A=A+S|
|00005690| 54 52 24 28 4c 46 29 20 | 45 4c 53 45 20 41 3d 41 |TR$(LF) |ELSE A=A|
|000056a0| 2b 22 20 22 2b 41 52 28 | 4c 46 29 0d 0a 31 38 35 |+" "+AR(|LF)..185|
|000056b0| 30 20 41 3d 41 2b 22 20 | 22 2b 41 4d 3a 43 41 4c |0 A=A+" |"+AM:CAL|
|000056c0| 4c 20 49 4f 2e 4f 3a 41 | 3d 53 54 52 24 28 46 31 |L IO.O:A|=STR$(F1|
|000056d0| 29 2b 22 2f 22 2b 4d 49 | 44 24 28 53 54 52 24 28 |)+"/"+MI|D$(STR$(|
|000056e0| 46 32 29 2c 32 29 3a 49 | 46 20 57 33 20 4f 52 20 |F2),2):I|F W3 OR |
|000056f0| 57 31 20 54 48 45 4e 20 | 41 3d 41 2b 22 28 2b 22 |W1 THEN |A=A+"(+"|
|00005700| 2b 4d 49 44 24 28 53 54 | 52 24 28 57 33 2b 57 31 |+MID$(ST|R$(W3+W1|
|00005710| 29 2c 32 29 2b 22 29 22 | 0d 0a 31 38 36 30 20 41 |),2)+")"|..1860 A|
|00005720| 3d 41 2b 22 20 46 61 74 | 22 2b 53 54 52 24 28 56 |=A+" Fat|"+STR$(V|
|00005730| 31 29 2b 22 2f 22 2b 4d | 49 44 24 28 53 54 52 24 |1)+"/"+M|ID$(STR$|
|00005740| 28 56 32 29 2c 32 29 2b | 22 20 56 69 74 22 2b 53 |(V2),2)+|" Vit"+S|
|00005750| 54 52 24 28 4d 59 29 2b | 22 2f 22 2b 4d 49 44 24 |TR$(MY)+|"/"+MID$|
|00005760| 28 53 54 52 24 28 4d 32 | 29 2c 32 29 2b 22 20 4d |(STR$(M2|),2)+" M|
|00005770| 61 67 22 3a 43 41 4c 4c | 20 49 4f 2e 4f 3a 46 4f |ag":CALL| IO.O:FO|
|00005780| 52 20 4c 3d 31 20 54 4f | 20 36 3a 41 3d 4c 45 46 |R L=1 TO| 6:A=LEF|
|00005790| 54 24 28 41 31 28 4c 29 | 2c 33 29 2b 53 54 52 24 |T$(A1(L)|,3)+STR$|
|000057a0| 28 46 34 28 4c 29 29 3a | 49 46 20 4c 3d 31 20 54 |(F4(L)):|IF L=1 T|
|000057b0| 48 45 4e 20 49 46 20 57 | 32 20 54 48 45 4e 20 41 |HEN IF W|2 THEN A|
|000057c0| 3d 41 2b 22 28 2b 22 2b | 4d 49 44 24 28 53 54 52 |=A+"(+"+|MID$(STR|
|000057d0| 24 28 57 32 29 2c 32 29 | 2b 22 29 22 0d 0a 31 38 |$(W2),2)|+")"..18|
|000057e0| 37 30 20 41 3d 41 2b 22 | 20 22 3a 43 52 3d 31 3a |70 A=A+"| ":CR=1:|
|000057f0| 43 41 4c 4c 20 49 4f 2e | 4f 3a 4e 45 58 54 3a 43 |CALL IO.|O:NEXT:C|
|00005800| 41 4c 4c 20 49 4f 2e 4f | 3a 49 46 20 50 49 20 54 |ALL IO.O|:IF PI T|
|00005810| 48 45 4e 20 41 3d 22 59 | 6f 75 20 61 72 65 20 64 |HEN A="Y|ou are d|
|00005820| 79 69 6e 67 20 66 72 6f | 6d 20 70 6f 69 73 6f 6e |ying fro|m poison|
|00005830| 21 22 3a 43 41 4c 4c 20 | 49 4f 2e 4f 0d 0a 31 38 |!":CALL |IO.O..18|
|00005840| 38 30 20 49 46 20 49 34 | 20 54 48 45 4e 20 41 3d |80 IF I4| THEN A=|
|00005850| 22 59 6f 75 20 61 72 65 | 20 69 6e 76 69 73 69 62 |"You are| invisib|
|00005860| 6c 65 21 22 3a 43 41 4c | 4c 20 49 4f 2e 4f 0d 0a |le!":CAL|L IO.O..|
|00005870| 31 38 39 30 20 49 46 20 | 57 31 20 54 48 45 4e 20 |1890 IF |W1 THEN |
|00005880| 47 45 54 20 38 2c 41 42 | 53 28 54 58 28 57 34 29 |GET 8,AB|S(TX(W4)|
|00005890| 29 3a 41 3d 22 59 6f 75 | 20 61 72 65 20 77 65 61 |):A="You| are wea|
|000058a0| 72 69 6e 67 20 22 2b 41 | 33 3a 43 41 4c 4c 20 49 |ring "+A|3:CALL I|
|000058b0| 4f 2e 4f 0d 0a 31 39 30 | 30 20 41 3d 22 22 3a 49 |O.O..190|0 A="":I|
|000058c0| 46 20 57 32 20 4f 52 20 | 57 33 20 54 48 45 4e 20 |F W2 OR |W3 THEN |
|000058d0| 41 3d 22 59 6f 75 20 61 | 72 65 20 68 6f 6c 64 69 |A="You a|re holdi|
|000058e0| 6e 67 20 22 3a 49 46 20 | 57 32 20 54 48 45 4e 20 |ng ":IF |W2 THEN |
|000058f0| 47 45 54 20 38 2c 41 42 | 53 28 54 58 28 57 36 29 |GET 8,AB|S(TX(W6)|
|00005900| 29 3a 41 49 3d 41 2b 41 | 33 3a 47 4f 53 55 42 20 |):AI=A+A|3:GOSUB |
|00005910| 36 37 38 30 3a 41 3d 41 | 49 0d 0a 31 39 31 30 20 |6780:A=A|I..1910 |
|00005920| 49 46 20 57 33 20 54 48 | 45 4e 20 47 45 54 20 38 |IF W3 TH|EN GET 8|
|00005930| 2c 41 42 53 28 54 58 28 | 57 35 29 29 3a 49 46 20 |,ABS(TX(|W5)):IF |
|00005940| 57 32 20 54 48 45 4e 20 | 41 3d 41 2b 22 20 61 6e |W2 THEN |A=A+" an|
|00005950| 64 20 22 2b 41 33 3a 43 | 41 4c 4c 20 49 4f 2e 4f |d "+A3:C|ALL IO.O|
|00005960| 20 45 4c 53 45 20 41 3d | 22 59 6f 75 20 61 72 65 | ELSE A=|"You are|
|00005970| 20 68 6f 6c 64 69 6e 67 | 20 22 2b 41 33 3a 43 41 | holding| "+A3:CA|
|00005980| 4c 4c 20 49 4f 2e 4f 20 | 45 4c 53 45 20 49 46 20 |LL IO.O |ELSE IF |
|00005990| 57 32 20 54 48 45 4e 20 | 43 41 4c 4c 20 49 4f 2e |W2 THEN |CALL IO.|
|000059a0| 4f 0d 0a 31 39 32 30 20 | 41 3d 22 59 6f 75 20 61 |O..1920 |A="You a|
|000059b0| 72 65 20 63 61 72 72 79 | 69 6e 67 22 2b 53 54 52 |re carry|ing"+STR|
|000059c0| 24 28 57 54 29 2b 22 20 | 6c 62 73 2e 20 6f 66 20 |$(WT)+" |lbs. of |
|000059d0| 74 72 65 61 73 75 72 65 | 2e 22 3a 43 41 4c 4c 20 |treasure|.":CALL |
|000059e0| 49 4f 2e 4f 3a 43 4d 3d | 30 3a 46 4f 52 20 4c 3d |IO.O:CM=|0:FOR L=|
|000059f0| 31 20 54 4f 20 54 52 3a | 4c 50 3d 54 58 28 4c 29 |1 TO TR:|LP=TX(L)|
|00005a00| 3a 49 46 20 4c 50 3e 30 | 20 54 48 45 4e 20 47 45 |:IF LP>0| THEN GE|
|00005a10| 54 20 36 2c 4c 50 3a 41 | 49 3d 41 4a 20 45 4c 53 |T 6,LP:A|I=AJ ELS|
|00005a20| 45 20 49 46 20 4c 50 3c | 30 20 54 48 45 4e 20 47 |E IF LP<|0 THEN G|
|00005a30| 45 54 20 38 2c 41 42 53 | 28 4c 50 29 3a 41 49 3d |ET 8,ABS|(LP):AI=|
|00005a40| 41 33 20 45 4c 53 45 20 | 31 39 35 30 0d 0a 31 39 |A3 ELSE |1950..19|
|00005a50| 33 30 20 47 4f 53 55 42 | 20 36 37 38 30 3a 43 4d |30 GOSUB| 6780:CM|
|00005a60| 3d 31 3a 49 46 20 4c 3e | 31 20 54 48 45 4e 20 41 |=1:IF L>|1 THEN A|
|00005a70| 3d 22 2c 20 22 3a 43 52 | 3d 31 3a 43 41 4c 4c 20 |=", ":CR|=1:CALL |
|00005a80| 49 4f 2e 4f 0d 0a 31 39 | 34 30 20 41 3d 41 49 3a |IO.O..19|40 A=AI:|
|00005a90| 43 52 3d 31 3a 43 41 4c | 4c 20 49 4f 2e 4f 0d 0a |CR=1:CAL|L IO.O..|
|00005aa0| 31 39 35 30 20 4e 45 58 | 54 3a 49 46 20 43 4d 20 |1950 NEX|T:IF CM |
|00005ab0| 54 48 45 4e 20 43 41 4c | 4c 20 49 4f 2e 4f 0d 0a |THEN CAL|L IO.O..|
|00005ac0| 31 39 36 30 20 41 3d 22 | 59 6f 75 20 68 61 76 65 |1960 A="|You have|
|00005ad0| 22 2b 53 54 52 24 28 47 | 47 23 29 2b 22 20 67 6f |"+STR$(G|G#)+" go|
|00005ae0| 6c 64 2e 22 3a 43 41 4c | 4c 20 49 4f 2e 4f 3a 41 |ld.":CAL|L IO.O:A|
|00005af0| 3d 22 59 6f 75 20 6e 65 | 65 64 22 2b 53 54 52 24 |="You ne|ed"+STR$|
|00005b00| 28 58 50 23 29 2b 22 20 | 65 78 70 65 72 69 65 6e |(XP#)+" |experien|
|00005b10| 63 65 20 70 6f 69 6e 74 | 73 20 74 6f 20 72 65 61 |ce point|s to rea|
|00005b20| 63 68 20 74 68 65 20 6e | 65 78 74 20 6c 65 76 65 |ch the n|ext leve|
|00005b30| 6c 2e 22 3a 47 4f 54 4f | 20 35 32 30 0d 0a 31 39 |l.":GOTO| 520..19|
|00005b40| 37 30 20 49 34 3d 4e 4f | 54 20 49 34 3a 49 46 20 |70 I4=NO|T I4:IF |
|00005b50| 49 34 20 54 48 45 4e 20 | 41 3d 22 59 6f 75 20 61 |I4 THEN |A="You a|
|00005b60| 72 65 20 69 6e 76 69 73 | 69 62 6c 65 21 22 20 45 |re invis|ible!" E|
|00005b70| 4c 53 45 20 41 3d 22 59 | 6f 75 20 61 72 65 20 6e |LSE A="Y|ou are n|
|00005b80| 6f 20 6c 6f 6e 67 65 72 | 20 69 6e 76 69 73 69 62 |o longer| invisib|
|00005b90| 6c 65 21 0d 0a 31 39 38 | 30 20 47 4f 54 4f 20 35 |le!..198|0 GOTO 5|
|00005ba0| 32 30 0d 0a 31 39 39 30 | 20 4c 4d 3d 30 3a 49 34 |20..1990| LM=0:I4|
|00005bb0| 3d 4e 4f 54 20 49 34 3a | 49 46 20 49 34 20 54 48 |=NOT I4:|IF I4 TH|
|00005bc0| 45 4e 20 41 3d 22 59 6f | 75 20 61 72 65 20 69 6e |EN A="Yo|u are in|
|00005bd0| 76 69 73 69 62 6c 65 21 | 22 20 45 4c 53 45 20 41 |visible!|" ELSE A|
|00005be0| 3d 22 59 6f 75 20 61 72 | 65 20 6e 6f 20 6c 6f 6e |="You ar|e no lon|
|00005bf0| 67 65 72 20 69 6e 76 69 | 73 69 62 6c 65 21 0d 0a |ger invi|sible!..|
|00005c00| 32 30 30 30 20 47 4f 54 | 4f 20 35 32 30 0d 0a 32 |2000 GOT|O 520..2|
|00005c10| 30 31 30 20 41 3d 22 5b | 52 5d 65 6d 6f 76 65 2f |010 A="[|R]emove/|
|00005c20| 5b 41 5d 64 64 20 61 20 | 6c 69 6e 6b 3f 22 3a 43 |[A]dd a |link?":C|
|00005c30| 41 4c 4c 20 49 4f 2e 49 | 3a 47 4f 53 55 42 20 36 |ALL IO.I|:GOSUB 6|
|00005c40| 35 32 30 3a 41 4c 3d 4c | 45 46 54 24 28 41 4c 2c |520:AL=L|EFT$(AL,|
|00005c50| 31 29 3a 4c 50 3d 31 3a | 49 46 20 41 4c 3d 22 41 |1):LP=1:|IF AL="A|
|00005c60| 22 54 48 45 4e 20 4c 50 | 3d 32 20 45 4c 53 45 20 |"THEN LP|=2 ELSE |
|00005c70| 49 46 20 41 4c 3c 3e 22 | 52 22 54 48 45 4e 20 35 |IF AL<>"|R"THEN 5|
|00005c80| 33 30 0d 0a 32 30 32 30 | 20 41 3d 22 52 6d 23 20 |30..2020| A="Rm# |
|00005c90| 74 6f 20 6c 69 6e 6b 3f | 22 3a 43 41 4c 4c 20 49 |to link?|":CALL I|
|00005ca0| 4f 2e 49 3a 49 46 20 4e | 58 20 54 48 45 4e 20 35 |O.I:IF N|X THEN 5|
|00005cb0| 33 30 0d 0a 32 30 33 30 | 20 4c 4e 3d 56 41 4c 28 |30..2030| LN=VAL(|
|00005cc0| 41 4c 29 3a 49 46 20 4c | 4e 3c 31 20 4f 52 20 4c |AL):IF L|N<1 OR L|
|00005cd0| 4e 3e 4c 4f 46 28 35 29 | 2f 34 37 30 20 54 48 45 |N>LOF(5)|/470 THE|
|00005ce0| 4e 20 35 33 30 0d 0a 32 | 30 34 30 20 41 3d 22 57 |N 530..2|040 A="W|
|00005cf0| 68 69 63 68 20 64 69 72 | 65 63 74 69 6f 6e 3f 22 |hich dir|ection?"|
|00005d00| 3a 43 41 4c 4c 20 49 4f | 2e 49 3a 49 46 20 4e 58 |:CALL IO|.I:IF NX|
|00005d10| 20 54 48 45 4e 20 35 33 | 30 0d 0a 32 30 35 30 20 | THEN 53|0..2050 |
|00005d20| 47 4f 53 55 42 20 36 35 | 32 30 3a 44 35 3d 49 4e |GOSUB 65|20:D5=IN|
|00005d30| 53 54 52 28 22 4e 45 53 | 57 4f 55 44 22 2c 41 4c |STR("NES|WOUD",AL|
|00005d40| 29 3a 49 46 20 44 35 3d | 30 20 54 48 45 4e 20 35 |):IF D5=|0 THEN 5|
|00005d50| 33 30 0d 0a 32 30 36 30 | 20 49 46 20 4c 50 3d 31 |30..2060| IF LP=1|
|00005d60| 20 54 48 45 4e 20 47 45 | 54 20 35 2c 4c 4e 3a 4c | THEN GE|T 5,LN:L|
|00005d70| 53 45 54 20 41 45 28 44 | 35 29 3d 4d 4b 49 24 28 |SET AE(D|5)=MKI$(|
|00005d80| 30 29 3a 50 55 54 20 35 | 2c 4c 4e 3a 41 3d 22 4f |0):PUT 5|,LN:A="O|
|00005d90| 6b 22 3a 47 4f 54 4f 20 | 35 32 30 0d 0a 32 30 37 |k":GOTO |520..207|
|00005da0| 30 20 41 3d 22 4c 69 6e | 6b 20 74 6f 20 52 6d 23 |0 A="Lin|k to Rm#|
|00005db0| 3f 22 3a 43 41 4c 4c 20 | 49 4f 2e 49 3a 4e 56 3d |?":CALL |IO.I:NV=|
|00005dc0| 56 41 4c 28 41 4c 29 3a | 4c 50 3d 4e 56 3a 49 46 |VAL(AL):|LP=NV:IF|
|00005dd0| 20 4c 50 3c 31 20 4f 52 | 20 4c 50 3e 4c 4f 46 28 | LP<1 OR| LP>LOF(|
|00005de0| 35 29 2f 34 37 30 20 54 | 48 45 4e 20 35 33 30 0d |5)/470 T|HEN 530.|
|00005df0| 0a 32 30 38 30 20 47 45 | 54 20 35 2c 4c 4e 3a 4c |.2080 GE|T 5,LN:L|
|00005e00| 53 45 54 20 41 45 28 44 | 35 29 3d 4d 4b 49 24 28 |SET AE(D|5)=MKI$(|
|00005e10| 4c 50 29 3a 50 55 54 20 | 35 2c 4c 4e 3a 41 3d 22 |LP):PUT |5,LN:A="|
|00005e20| 52 6f 6f 6d 20 6c 69 6e | 6b 65 64 22 3a 43 41 4c |Room lin|ked":CAL|
|00005e30| 4c 20 49 4f 2e 4f 3a 49 | 46 20 44 35 3d 35 20 54 |L IO.O:I|F D5=5 T|
|00005e40| 48 45 4e 20 35 33 30 20 | 45 4c 53 45 20 41 3d 22 |HEN 530 |ELSE A="|
|00005e50| 4c 69 6e 6b 20 62 61 63 | 6b 3f 22 3a 43 41 4c 4c |Link bac|k?":CALL|
|00005e60| 20 49 4f 2e 49 3a 49 46 | 20 59 45 3d 30 20 54 48 | IO.I:IF| YE=0 TH|
|00005e70| 45 4e 20 35 33 30 0d 0a | 32 30 39 30 20 49 46 20 |EN 530..|2090 IF |
|00005e80| 44 31 3d 35 20 54 48 45 | 4e 20 44 38 3d 33 20 45 |D1=5 THE|N D8=3 E|
|00005e90| 4c 53 45 20 49 46 20 44 | 35 3d 32 20 54 48 45 4e |LSE IF D|5=2 THEN|
|00005ea0| 20 44 38 3d 34 20 45 4c | 53 45 20 49 46 20 44 35 | D8=4 EL|SE IF D5|
|00005eb0| 3d 33 20 54 48 45 4e 20 | 44 38 3d 31 20 45 4c 53 |=3 THEN |D8=1 ELS|
|00005ec0| 45 20 49 46 20 44 35 3d | 34 20 54 48 45 4e 20 44 |E IF D5=|4 THEN D|
|00005ed0| 38 3d 32 20 45 4c 53 45 | 20 49 46 20 44 35 3d 36 |8=2 ELSE| IF D5=6|
|00005ee0| 20 54 48 45 4e 20 44 38 | 3d 37 20 45 4c 53 45 20 | THEN D8|=7 ELSE |
|00005ef0| 49 46 20 44 35 3d 37 20 | 54 48 45 4e 20 44 38 3d |IF D5=7 |THEN D8=|
|00005f00| 36 0d 0a 32 31 30 30 20 | 47 45 54 20 35 2c 4c 50 |6..2100 |GET 5,LP|
|00005f10| 3a 4c 53 45 54 20 41 45 | 28 44 38 29 3d 4d 4b 49 |:LSET AE|(D8)=MKI|
|00005f20| 24 28 4c 4e 29 3a 50 55 | 54 20 35 2c 4c 50 3a 41 |$(LN):PU|T 5,LP:A|
|00005f30| 3d 22 4f 6b 22 3a 47 4f | 54 4f 20 35 32 30 0d 0a |="Ok":GO|TO 520..|
|00005f40| 32 31 31 30 20 41 3d 22 | 41 72 65 20 79 6f 75 20 |2110 A="|Are you |
|00005f50| 73 75 72 65 20 79 6f 75 | 20 77 61 6e 74 20 74 6f |sure you| want to|
|00005f60| 20 63 6f 6d 6d 69 74 20 | 73 75 69 63 69 64 65 3f | commit |suicide?|
|00005f70| 22 3a 43 41 4c 4c 20 49 | 4f 2e 49 3a 49 46 20 59 |":CALL I|O.I:IF Y|
|00005f80| 45 3d 30 20 54 48 45 4e | 20 35 33 30 0d 0a 32 31 |E=0 THEN| 530..21|
|00005f90| 32 30 20 47 45 54 20 33 | 2c 55 58 3a 46 4f 52 20 |20 GET 3|,UX:FOR |
|00005fa0| 4c 50 3d 31 20 54 4f 20 | 32 30 3a 4c 53 45 54 20 |LP=1 TO |20:LSET |
|00005fb0| 41 43 28 4c 50 29 3d 4d | 4b 49 24 28 30 29 3a 4c |AC(LP)=M|KI$(0):L|
|00005fc0| 53 45 54 20 41 48 28 4c | 50 29 3d 4d 4b 49 24 28 |SET AH(L|P)=MKI$(|
|00005fd0| 30 29 3a 4e 45 58 54 3a | 43 32 3d 30 3a 47 4f 53 |0):NEXT:|C2=0:GOS|
|00005fe0| 55 42 20 31 38 30 30 3a | 50 55 54 20 33 2c 55 58 |UB 1800:|PUT 3,UX|
|00005ff0| 3a 47 4f 54 4f 20 37 35 | 33 30 0d 0a 32 31 33 30 |:GOTO 75|30..2130|
|00006000| 20 49 46 20 49 39 20 54 | 48 45 4e 20 41 3d 22 44 | IF I9 T|HEN A="D|
|00006010| 6f 3f 22 20 45 4c 53 45 | 20 41 3d 22 41 63 74 69 |o?" ELSE| A="Acti|
|00006020| 6f 6e 3f 20 22 0d 0a 32 | 31 34 30 20 41 3d 41 2b |on? "..2|140 A=A+|
|00006030| 22 2a 54 45 4c 45 20 22 | 3a 43 41 4c 4c 20 49 4f |"*TELE "|:CALL IO|
|00006040| 2e 49 3a 4c 4d 3d 30 3a | 4e 24 3d 41 4c 0d 0a 32 |.I:LM=0:|N$=AL..2|
|00006050| 31 35 30 20 41 3d 22 41 | 20 64 61 72 6b 20 63 6c |150 A="A| dark cl|
|00006060| 6f 75 64 20 70 61 73 73 | 65 73 20 6f 76 65 72 68 |oud pass|es overh|
|00006070| 65 61 64 2e 2e 2e 22 3a | 43 41 4c 4c 20 49 4f 2e |ead...":|CALL IO.|
|00006080| 4f 3a 41 3d 22 20 20 20 | 41 20 62 6f 6c 74 20 6f |O:A="   |A bolt o|
|00006090| 66 20 6c 69 67 68 74 6e | 69 6e 67 20 73 74 72 69 |f lightn|ing stri|
|000060a0| 6b 65 73 2e 2e 2e 22 3a | 43 41 4c 4c 20 49 4f 2e |kes...":|CALL IO.|
|000060b0| 4f 3a 41 3d 22 20 20 20 | 20 20 20 54 68 65 20 63 |O:A="   |   The c|
|000060c0| 6c 6f 75 64 20 64 69 73 | 61 70 70 65 61 72 73 2e |loud dis|appears.|
|000060d0| 2e 2e 22 3a 43 41 4c 4c | 20 49 4f 2e 4f 0d 0a 32 |..":CALL| IO.O..2|
|000060e0| 31 36 30 20 5a 39 3d 56 | 41 4c 28 4e 24 29 3a 47 |160 Z9=V|AL(N$):G|
|000060f0| 4f 53 55 42 20 36 35 36 | 30 3a 41 49 32 3d 22 20 |OSUB 656|0:AI2=" |
|00006100| 74 65 6c 65 70 6f 72 74 | 73 20 77 69 74 68 20 79 |teleport|s with y|
|00006110| 6f 75 21 22 3a 47 4f 54 | 4f 20 31 35 31 30 0d 0a |ou!":GOT|O 1510..|
|00006120| 32 31 37 30 20 41 4c 3d | 4e 24 3a 4e 56 3d 56 41 |2170 AL=|N$:NV=VA|
|00006130| 4c 28 41 4c 29 3a 4c 4e | 3d 4e 56 3a 49 46 20 4c |L(AL):LN|=NV:IF L|
|00006140| 4e 3c 31 20 4f 52 20 4c | 4e 3e 4c 4f 46 28 35 29 |N<1 OR L|N>LOF(5)|
|00006150| 2f 34 37 30 20 54 48 45 | 4e 20 35 33 30 0d 0a 32 |/470 THE|N 530..2|
|00006160| 31 38 30 20 47 45 54 20 | 35 2c 4c 4e 3a 41 3d 22 |180 GET |5,LN:A="|
|00006170| 53 68 6f 72 74 20 44 65 | 73 63 72 69 70 74 69 6f |Short De|scriptio|
|00006180| 6e 3a 22 2b 41 50 3a 43 | 41 4c 4c 20 49 4f 2e 4f |n:"+AP:C|ALL IO.O|
|00006190| 3a 41 3d 22 4e 65 77 20 | 44 65 73 63 72 69 70 74 |:A="New |Descript|
|000061a0| 69 6f 6e 3f 22 3a 43 41 | 4c 4c 20 49 4f 2e 49 3a |ion?":CA|LL IO.I:|
|000061b0| 47 4f 53 55 42 20 36 39 | 37 30 3a 49 46 20 41 4c |GOSUB 69|70:IF AL|
|000061c0| 3c 3e 22 22 54 48 45 4e | 20 4c 53 45 54 20 41 50 |<>""THEN| LSET AP|
|000061d0| 3d 41 4c 3a 50 55 54 20 | 35 2c 4c 4e 0d 0a 32 31 |=AL:PUT |5,LN..21|
|000061e0| 39 30 20 49 46 20 41 42 | 28 31 29 3d 53 54 52 49 |90 IF AB|(1)=STRI|
|000061f0| 4e 47 24 28 38 30 2c 33 | 32 29 54 48 45 4e 20 41 |NG$(80,3|2)THEN A|
|00006200| 3d 22 4e 6f 20 4c 6f 6e | 67 20 44 65 73 63 72 69 |="No Lon|g Descri|
|00006210| 70 74 69 6f 6e 20 74 6f | 20 45 64 69 74 2e 22 3a |ption to| Edit.":|
|00006220| 47 4f 54 4f 20 35 32 30 | 0d 0a 32 32 30 30 20 46 |GOTO 520|..2200 F|
|00006230| 4f 52 20 43 4f 3d 31 20 | 54 4f 20 34 3a 49 46 20 |OR CO=1 |TO 4:IF |
|00006240| 41 42 28 43 4f 29 3c 3e | 53 54 52 49 4e 47 24 28 |AB(CO)<>|STRING$(|
|00006250| 38 30 2c 33 32 29 54 48 | 45 4e 20 41 49 3d 41 42 |80,32)TH|EN AI=AB|
|00006260| 28 43 4f 29 3a 47 4f 53 | 55 42 20 36 37 38 30 3a |(CO):GOS|UB 6780:|
|00006270| 41 35 28 43 4f 29 3d 41 | 49 3a 41 3d 41 49 3a 43 |A5(CO)=A|I:A=AI:C|
|00006280| 41 4c 4c 20 49 4f 2e 4f | 3a 4e 45 58 54 0d 0a 32 |ALL IO.O|:NEXT..2|
|00006290| 32 31 30 20 43 4f 3d 43 | 4f 2d 31 3a 41 3d 22 53 |210 CO=C|O-1:A="S|
|000062a0| 74 72 69 6e 67 20 74 6f | 20 72 65 70 6c 61 63 65 |tring to| replace|
|000062b0| 3f 22 3a 43 41 4c 4c 20 | 49 4f 2e 49 3a 49 46 20 |?":CALL |IO.I:IF |
|000062c0| 4e 58 20 54 48 45 4e 20 | 35 33 30 0d 0a 32 32 32 |NX THEN |530..222|
|000062d0| 30 20 52 45 24 3d 41 4c | 3a 41 3d 22 52 65 70 6c |0 RE$=AL|:A="Repl|
|000062e0| 61 63 65 6d 65 6e 74 3f | 22 3a 43 41 4c 4c 20 49 |acement?|":CALL I|
|000062f0| 4f 2e 49 3a 46 4c 3d 30 | 3a 46 4f 52 20 4c 50 3d |O.I:FL=0|:FOR LP=|
|00006300| 31 20 54 4f 20 43 4f 3a | 49 46 20 49 4e 53 54 52 |1 TO CO:|IF INSTR|
|00006310| 28 41 35 28 4c 50 29 2c | 52 45 24 29 20 54 48 45 |(A5(LP),|RE$) THE|
|00006320| 4e 20 49 46 20 4c 45 4e | 28 41 35 28 4c 50 29 29 |N IF LEN|(A5(LP))|
|00006330| 2d 4c 45 4e 28 52 45 24 | 29 2b 4c 45 4e 28 41 4c |-LEN(RE$|)+LEN(AL|
|00006340| 29 3e 37 39 20 54 48 45 | 4e 20 41 3d 22 4c 69 6e |)>79 THE|N A="Lin|
|00006350| 65 20 6f 76 65 72 66 6c | 6f 77 2e 22 3a 47 4f 54 |e overfl|ow.":GOT|
|00006360| 4f 20 35 32 30 0d 0a 32 | 32 33 30 20 49 46 20 49 |O 520..2|230 IF I|
|00006370| 4e 53 54 52 28 41 35 28 | 4c 50 29 2c 52 45 24 29 |NSTR(A5(|LP),RE$)|
|00006380| 54 48 45 4e 20 41 35 28 | 4c 50 29 3d 4c 45 46 54 |THEN A5(|LP)=LEFT|
|00006390| 24 28 41 35 28 4c 50 29 | 2c 49 4e 53 54 52 28 41 |$(A5(LP)|,INSTR(A|
|000063a0| 35 28 4c 50 29 2c 52 45 | 24 29 2d 31 29 2b 41 4c |5(LP),RE|$)-1)+AL|
|000063b0| 2b 4d 49 44 24 28 41 35 | 28 4c 50 29 2c 49 4e 53 |+MID$(A5|(LP),INS|
|000063c0| 54 52 28 41 35 28 4c 50 | 29 2c 52 45 24 29 2b 4c |TR(A5(LP|),RE$)+L|
|000063d0| 45 4e 28 52 45 24 29 29 | 3a 46 4c 3d 46 4c 2b 31 |EN(RE$))|:FL=FL+1|
|000063e0| 0d 0a 32 32 34 30 20 4e | 45 58 54 3a 49 46 20 46 |..2240 N|EXT:IF F|
|000063f0| 4c 20 54 48 45 4e 20 41 | 3d 4d 49 44 24 28 53 54 |L THEN A|=MID$(ST|
+--------+-------------------------+-------------------------+--------+--------+